|
|
A073186
|
|
First n-digit prime in "the sequence of even integers": 246810121416182022242628303234...
|
|
1
|
|
|
2, 41, 101, 8101, 30323, 141161, 2468101, 42628303, 246810121, 8101214161, 68101214161, 890929496981, 1081101121141, 68890929496981, 202224262830323, 6416616817017217, 58606264666870727, 618202224262830323
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Leading zeros are forbidden (cf. A073468).
|
|
LINKS
|
|
|
EXAMPLE
|
a(6)=141161 because first 6-digit prime in "the sequence of even integers": 246810121416182022242628303234... is 141161 (omiiting initial zeros, otherwise 6 successive integers which give first "6-digital" prime are "001021" )
|
|
MATHEMATICA
|
p200=Flatten[IntegerDigits[2*Range[200]]]; Do[pn=Partition[p200, n, 1]; ln=Length[pn]; tab=Table[Sum[10^(n-k)*pn[[i, k]], {k, n}], {i, ln}]; tas=Select[tab, PrimeQ]; Print[{n, tas[[1]], tas[[2]], tas[[3]]}], {n, 20}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|