OFFSET
1,1
MATHEMATICA
Do[x=Floor[N[Log[10, n], 25]]+1; If[Mod[n^5, 10^x] == n, If[Mod[n^2, 10^x]!= n, If[Mod[n^3, 10^x]!= n, Print[n]]]], {n, 1, 50000}]
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Jul 24 2000
STATUS
approved