OFFSET
1,1
COMMENTS
Leading zeros count but are not printed (cf. A073428).
LINKS
Robert Israel, Table of n, a(n) for n = 1..996
EXAMPLE
a(4) = 5791 because first 4-digit prime in 135791113151719212325272931333537394143454749... is 5791. Notice that a(6) = 31051 because actually it is 031051, If we remove initial zeros, then a(6) = 105107.
MAPLE
S:= "":
for i from 1 to 300 by 2 do
S:= cat(S, sprintf("%d", i))
od:
nS:= length(S):
for n from 1 do
found:= false;
for i from 1 to nS-n+1 do
x:= parse(S[i..n+i-1]);
if isprime(x) then R[n]:= x; found:= true; break fi
od;
if not found then break fi;
od:
seq(R[i], i=1..n-1); # Robert Israel, Nov 27 2024
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Zak Seidov, Aug 22 2002
EXTENSIONS
Data corrected by Sean A. Irvine, Nov 20 2024
Name modified by Sean A. Irvine, Jan 31 2025
STATUS
approved
