OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = nextprime(10*A008470(n)).
PROG
(PARI) for(d=1, 999, primepi(10*(d+1))-primepi(10*d) >2|next; print1(nextprime(d*10+1)", "))
(PARI) is(n)=my(t=n%10); if(t==1, isprime(n) && if(isprime(n+2), isprime(n+6) || isprime(n+8), isprime(n+6) && isprime(n+8)), t==3 && isprime(n) && !isprime(n-2) && isprime(n+4) && isprime(n+6)) \\ Charles R Greathouse IV, Mar 04 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Mar 03 2014
STATUS
approved