OFFSET
0,1
LINKS
David A. Corneth, Table of n, a(n) for n = 0..700 (first 201 terms from M. F. Hasler)
MATHEMATICA
Do[a = Table[6, {n}]; k = 0; While[b = FromDigits[ Join[a, IntegerDigits[k] ]]; First[ IntegerDigits[k]] == 6 || !PrimeQ[b], k++ ]; Print[b], {n, 1, 17} ]
PROG
(PARI) a(n) = {if(n==0, return(2)); my(cs = 60*(10^n\9), pow10 = 10); for(i = 1, oo, np = cs; d = 0; while(d < pow10, np = nextprime(np + 1); d = np - cs; if(d < pow10 && digits(d)[1] != 6 || 10*d < pow10, return(np))); cs*=10; pow10*=10)} \\ David A. Corneth, Sep 06 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Nov 28 2001
EXTENSIONS
Corrected by Don Reble, Jan 17 2007
Offset corrected by Sean A. Irvine, Sep 06 2023
STATUS
approved