|
| |
|
|
A073037
|
|
Take A000040, omit commas: 23571113171923..., select 4-digit primes seen when scanning from left.
|
|
0
| |
|
|
2357, 3571, 5711, 3137, 7717, 8389, 1103, 1031, 7109, 1091, 911, 2713, 9151, 1511, 1571, 3167, 9181, 1811, 1193, 1931, 9319, 9719, 1223, 7229, 3323, 9241, 7127, 1277, 1283, 8329, 3307, 1733, 7331, 3313, 3373, 7349, 3533, 3359, 3593, 3673, 6737, 3733
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| In the sequence 2357111317192329... (primes without delimiters) 4-digit primes are: 2357, 3571, 5711, 3137, 7717, ...
|
|
|
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
| Sequence in context: A132391 A134966 A108419 * A160403 A156987 A101251
Adjacent sequences: A073034 A073035 A073036 * A073038 A073039 A073040
|
|
|
KEYWORD
| easy,nonn,base
|
|
|
AUTHOR
| Zak Seidov (zakseidov(AT)yahoo.com), Aug 22 2002
|
| |
|
|
