|
%I #4 Sep 30 2012 01:45:34
%S 2,3,4,7,8,9,24,32,43,49,51,57,68,75,93,99,125,193,249,251,307,375,
%T 432,443,499,501,557,568,624,693,749,751,807,875,943,999,1249,1251,
%U 1693,1875,2057,2499,2501,2943,3125,3307,3568,3749,3751,4193,4375,4557,4999
%N 5-morphic but not bimorphic nor automorphic.
%t 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}]
%Y Cf. A003226 and A033819.
%K easy,nonn
%O 1,1
%A _Robert G. Wilson v_, Jul 24 2000
|
