OFFSET
1,1
LINKS
Bill Hannaford and Harvey P. Dale, Table of n, a(n) for n = 1..1500 (first 40 terms from Bill Hannaford).
MATHEMATICA
(#-1)/6&/@Select[Flatten[Table[FromDigits/@Tuples[{2, 3}, n], {n, 13}]], AllTrue[ {#, (#-1)/6}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Dec 15 2015 *)
PROG
(PARI) okdig(n) = {digs = Set(digits(n)); (#digs == 2) && (digs[1] == 2) && (digs[2] == 3); }
lista(nn) = {p = 2; until (p > nn, if (isprime(q=6*p+1) && okdig(q), print1(p, ", ")); p = nextprime(p+1); ); } \\ Michel Marcus, Oct 15 2013
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Dec 20 2008
EXTENSIONS
a(6)-a(40) from Bill Hannaford, Nov 08 2013
STATUS
approved