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,1

Links

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

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

Crossrefs

Cf. A003226 and A033819.

Sequence in context: A129645 A324481 A112994 * A056432 A271506 A056433

Adjacent sequences: A056033 A056034 A056035 * A056037 A056038 A056039

Keyword

easy,nonn

Author

Robert G. Wilson v, Jul 24 2000

Status

approved