1,2

Do[ If[ PrimeQ[ ToExpression[ StringReverse[ ToString[5^n] ] ] ], Print[n] ], {n, 1, 3000} ]

Cf. A057708.

Sequence in context: A094815 A144788 A062181 this_sequence A083109 A048372 A062124

Adjacent sequences: A058990 A058991 A058992 this_sequence A058994 A058995 A058996

nonn,base

Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 17 2001