OFFSET
1,1
LINKS
Shyam Sunder Gupta, Table of n, a(n) for n = 1..987
MATHEMATICA
t = {}; Do[z = n*10^(IntegerLength[n] - 1) + FromDigits@Rest@Reverse@IntegerDigits[n]; If[PrimeQ[z] && Mod[z, 9] == 4, AppendTo[t, z]], {n, 1, 99999}]; t
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Shyam Sunder Gupta, Oct 02 2013
STATUS
approved