OFFSET
1,1
COMMENTS
a(n) = (A153165(n)-1)/6.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
pd23Q[n_]:=Module[{c=6n+1}, PrimeQ[c]&&Union[IntegerDigits[c]]=={2, 3}]; Select[ Range[ 54000000], pd23Q] (* Harvey P. Dale, Feb 08 2013 *)
Table[Select[(#-1)/6&/@Select[FromDigits/@Tuples[{2, 3}, n], OddQ[#] && PrimeQ[ #]&], IntegerQ], {n, 9}]//Flatten (* Harvey P. Dale, Oct 04 2016 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Dec 20 2008
STATUS
approved