|
Search: id:A073034
|
|
|
| A073034 |
|
Take A000040, omit commas: 23571113171923..., select 1-digit primes. |
|
+0
2
|
|
| 2, 3, 5, 7, 3, 7, 2, 3, 2, 3, 3, 7, 3, 7, 5, 3, 5, 7, 7, 7, 3, 7, 3, 7, 3, 7, 3, 2, 7, 3, 3, 7, 3, 5, 5, 7, 3, 7, 7, 3, 7, 3, 7, 2, 2, 2, 3, 2, 2, 7, 2, 2, 2, 3, 3, 2, 3, 2, 2, 5, 2, 5, 7, 2, 3, 2, 2
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
In the sequence 2357111317192329... (primes without delimiters) one-digit primes are 2,3,5,7,3,7,2,3,2...
|
|
MATHEMATICA
|
p200=Flatten[IntegerDigits[Prime[Range[200]]]]; n=4; (* n-digit primes!*) pn=Partition[p200, n, 1]; ln=Length[pn]; tab=Table[Sum[10^(n-k)*pn[[i, k]], {k, n}], {i, ln}]; Select[tab, PrimeQ]
|
|
CROSSREFS
|
Adjacent sequences: A073031 A073032 A073033 this_sequence A073035 A073036 A073037
Sequence in context: A115260 A108534 A039706 this_sequence A126050 A126607 A124322
|
|
KEYWORD
|
easy,nonn,base
|
|
AUTHOR
|
Zak Seidov (zakseidov(AT)yahoo.com), Aug 22 2002
|
|
|
Search completed in 0.002 seconds
|
