%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