OFFSET
1,1
MATHEMATICA
Do[x=Floor[N[Log[10, n], 25]]+1; If[Mod[n^3, 10^x] == n, If[Mod[n^2, 10^x]!= n, Print[n]]], {n, 5*10^5}]
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Jul 24 2000
EXTENSIONS
Missing a(41) inserted by Sean A. Irvine, Apr 12 2022
STATUS
approved