OFFSET
1,1
MATHEMATICA
Union[FromDigits[Take[IntegerDigits[#], -2]]&/@Select[4Range[2, 130]+3, PrimeQ]] (* Harvey P. Dale, May 15 2011 *)
Mod[Select[4 Range[1000]+3, PrimeQ], 100]//Union (* Harvey P. Dale, Apr 04 2026 *)
CROSSREFS
KEYWORD
fini,full,nonn,base
AUTHOR
Lekraj Beedassy, Jan 19 2008
STATUS
approved
