login
A056033
5-morphic but not bimorphic nor automorphic.
0
2, 3, 4, 7, 8, 9, 24, 32, 43, 49, 51, 57, 68, 75, 93, 99, 125, 193, 249, 251, 307, 375, 432, 443, 499, 501, 557, 568, 624, 693, 749, 751, 807, 875, 943, 999, 1249, 1251, 1693, 1875, 2057, 2499, 2501, 2943, 3125, 3307, 3568, 3749, 3751, 4193, 4375, 4557, 4999
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, Print[n]]], {n, 10^4}]
CROSSREFS
Cf. A003226 and A033819.
Sequence in context: A125965 A111116 A113318 * A302123 A286337 A047547
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Jul 24 2000
STATUS
approved