A056033 5-morphic but not bimorphic nor automorphic.

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

Links

Table of n, a(n) for n=1..53.

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

Adjacent sequences: A056030 A056031 A056032 * A056034 A056035 A056036

Keyword

easy,nonn

Author

Robert G. Wilson v, Jul 24 2000

Status

approved