|
Search: id:A073037
|
|
|
| A073037 |
|
Take A000040, omit commas: 23571113171923..., select 4-digit primes seen when scanning from left. |
|
+0
1
|
|
| 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; listen)
|
|
|
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 this_sequence A101251 A132904 A030473
Adjacent sequences: A073034 A073035 A073036 this_sequence A073038 A073039 A073040
|
|
KEYWORD
|
easy,nonn,base
|
|
AUTHOR
|
Zak Seidov (zakseidov(AT)yahoo.com), Aug 22 2002
|
|
|
Search completed in 0.002 seconds
|
