%I #11 Jul 14 2019 12:11:43
%S 2,41,101,8101,30323,1021,2468101,42628303,246810121,8101214161,
%T 68101214161,890929496981,1081101121141,68890929496981,
%U 202224262830323,828486889092949,58606264666870727,618202224262830323
%N First n-digit prime in "the sequence of even integers": 246810121416182022242628303234...
%C Leading zeros count but are not printed (cf. A073186).
%H Harvey P. Dale, <a href="/A073468/b073468.txt">Table of n, a(n) for n = 1..100</a>
%e a(6)=1021 because first 6-digit string in "the sequence of even integers": 246810121416182022242628303234... that forms a prime is "001021".
%t With[{c=Flatten[IntegerDigits/@(2Range[100])]},Table[SelectFirst[ FromDigits/@ Partition[c,n,1],PrimeQ],{n,20}]] (* _Harvey P. Dale_, Jul 14 2019 *)
%K nonn,base
%O 1,1
%A _Zak Seidov_, Aug 22 2002
%E More terms from _Sascha Kurz_, Feb 02 2003
|