A056032 Trimorphic but not bimorphic nor automorphic.
4, 9, 24, 49, 51, 75, 99, 125, 249, 251, 375, 499, 501, 624, 749, 751, 875, 999, 1249, 3751, 4375, 4999, 5001, 5625, 6249, 8751, 9375, 9999, 18751, 31249, 40625, 49999, 50001, 59375, 68751, 81249, 90624, 99999, 109375, 218751, 281249, 390625, 499999
Offset: 1
Programs
-
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}]
Extensions
Missing a(41) inserted by Sean A. Irvine, Apr 12 2022