A056036 5-morphic but not bimorphic, automorphic nor trimorphic.

2, 3, 7, 8, 32, 43, 57, 68, 93, 193, 307, 432, 443, 557, 568, 693, 807, 943, 1251, 1693, 1875, 2057, 2499, 2501, 2943, 3125, 3307, 3568, 3749, 4193, 4557, 5443, 5807, 6251, 6432, 6693, 6875, 7057, 7499, 7501, 7943, 8125, 8307, 8749, 9193, 9557, 13568

Offset: 1

Author

Robert G. Wilson v, Jul 24 2000

Keywords

• easy
• nonn

Crossrefs

Cf. A003226 and A033819.

Programs

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}]