1,2
Do[ If[ PrimeQ[ ToExpression[ StringReverse[ ToString[5^n] ] ] ], Print[n] ], {n, 1, 3000} ]
Cf. A057708.
Sequence in context: A183248 A144788 A062181 * A083109 A191590 A177511
Adjacent sequences: A058990 A058991 A058992 * A058994 A058995 A058996
nonn,base
Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 17 2001