[go: up one dir, main page]

login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A108128
Number of distinct prime factors of concatenated twin primes.
0
2, 2, 2, 2, 2, 2, 3, 2, 3, 2, 2, 2, 2, 2, 2, 3, 2, 3, 2, 3, 3, 3, 3, 3, 3, 2, 2, 3, 2, 2, 3, 2, 2, 3, 2, 3, 3, 2, 2, 2, 3, 2, 3, 3, 3, 3, 2, 3, 2, 4, 3, 2, 2, 3, 2, 2, 2, 2, 3, 3, 2, 2, 3, 2, 2, 3, 2, 3, 3, 2, 2, 2, 3, 2, 2, 3, 2, 2, 3, 2, 3, 3, 2, 3, 4, 2, 2, 3, 3, 3, 3, 3, 2, 2, 3, 2, 2, 3, 3, 2, 2, 3, 2, 3, 2
OFFSET
1,1
EXAMPLE
The number of distinct prime factors of 35 (which is obtained from concatenating the twin primes 3 and 5) is 2, which is the first term of the sequence.
MATHEMATICA
Length[ FactorInteger[ # ]] & /@ FromDigits /@ Transpose[{Select[ Prime[ Range[550]], PrimeQ[ # + 2] &], Select[ Prime[ Range[550]], PrimeQ[ # - 2] &]}] (* Robert G. Wilson v, Jun 09 2005 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Parthasarathy Nambi, Jun 04 2005
EXTENSIONS
Edited, corrected and extended by Robert G. Wilson v, Jun 09 2005
STATUS
approved