|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|