login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A100552 Single-digit primes, followed recursively by 2k-digit primes obtained by concatenation of pairs of distinct k-digit primes of the sequence. 0
2, 3, 5, 7, 23, 37, 53, 73, 5323 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
COMMENTS
The sequence is finite because there is only one 4-digit prime from which no further 8-digit primes can be obtained as there are no 4-digit partners left.
LINKS
EXAMPLE
Start from the 4 single-digit primes 2,3,5,7. Construct all 2-digit primes with prime digits (to get the first 8 elements of A019546). Add the 4-digit primes obtained by concatenation of the previous 2-digit primes.
MATHEMATICA
a={2, 3, 5, 7} (* two digits primes*) b=Delete[Union[Flatten[Table[If[PrimeQ[a[[n]]*10+a[[m]]]==True, a[[n]]*10+a[[m]], 0], {n, 1, 4}, {m, 1, 4}], 1]], 1] (* only one four digit prime combination exists*) c=Delete[Union[Flatten[Table[If[PrimeQ[b[[n]]*100+b[[m]]]==True, b[[n]]*100+b[[m]], 0], {n, 1, 4}, {m, 1, 4}], 1]], 1] (* no eight digit prime of this type exists*) d=If[PrimeQ[c[[1]]*10000+c[[1]]]==True, c[[1]]*100+c[[1]], 0] Join[a, b, c]
CROSSREFS
Sequence in context: A085823 A284060 A211682 * A210566 A155873 A362678
KEYWORD
nonn,base,fini,full,less
AUTHOR
Roger L. Bagula, Nov 27 2004
EXTENSIONS
Edited by the associate editors of the OEIS, Jun 28 2009
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 16 23:11 EDT 2024. Contains 374360 sequences. (Running on oeis4.)