|
| |
|
|
A119680
|
|
Primes with zeros inserted between digits that are Then new primes starting at n=5 where there are two digit primes.
|
|
0
| |
|
|
101, 103, 107, 109, 307, 401, 503, 509, 601, 607, 701, 709, 809, 907, 10007, 10009, 10103, 10301, 10501, 10607, 10709, 10903, 10909, 20101, 20507, 20707, 20903, 30103, 30307, 30509, 30703, 30803, 30809, 40009, 40507, 40709, 50707, 50909
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
FORMULA
| a(n) = If prime[n] with zeros inserted is prime, then newprime[n]
|
|
|
EXAMPLE
| 11->101
13->103
17->107
19->109
23-> not prime at 203
|
|
|
MATHEMATICA
| a = Table[Table[Mod[Floor[Prime[m]/10^n], 10], {n, 4, 0, -1}], {m, 5, 200}]; Dimensions[a] b = Table[Sum[(If[Mod[n - 1, 2] == 0, a[[m, 1 + Floor[(n - 1)/2]]], 0])*10^(9 - n), {n, 1, 9}], {m, 1, 195}]; c = Flatten[Table[If[PrimeQ[b[[m]]], b[[m]], {}], {m, 1, 195}]]
|
|
|
CROSSREFS
| Sequence in context: A183087 A056709 A134809 * A166571 A201965 A117837
Adjacent sequences: A119677 A119678 A119679 * A119681 A119682 A119683
|
|
|
KEYWORD
| nonn,base,uned
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Jun 11 2006
|
| |
|
|
