OFFSET
1,1
COMMENTS
Is this sequence infinite?
REFERENCES
Peter Luschny, Posting to Sequence Fans Mailing List, Jul 25, 2013.
MATHEMATICA
fQ[n_]:=Module[{idn=IntegerDigits[n]}, idn[[-2]]==3&&Total[idn]==10]; Select[Prime[Range[5, 80000]], fQ] (* Harvey P. Dale, Aug 15 2014 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Jul 31 2013
STATUS
approved