login
A056036
5-morphic but not bimorphic, automorphic nor trimorphic.
0
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
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
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Jul 24 2000
STATUS
approved