OFFSET
0,1
LINKS
PROG
(PARI) nxtprm(fp) = {fd = digits(fp); ld = fd[#fd]; forprime(p = fp+1, , nd = digits(p); if ((nd[1] == ld) , return (p))); }
lista(nn) = {fp = 1; for (n=1, nn, np = nxtprm(fp); print1(np, ", "); fp = np; ); }
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Patrick De Geest, Feb 15 2000
STATUS
approved