%I A033819
%S A033819 0,1,4,5,6,9,24,25,49,51,75,76,99,125,249,251,375,376,499,501,624,625,
%T A033819 749,751,875,999,1249,3751,4375,4999,5001,5625,6249,8751,9375,9376,
%U A033819 9999,18751,31249,40625,49999,50001,59375,68751,81249,90624,90625
%N A033819 Trimorphic numbers: n^3 ends with n. Also m-morphic numbers for all m>
               5 such that m-1 is not divisible by 10 and m==3 (mod 4)
%H A033819 <a href="Sindx_Ar.html#automorphic">Index entries for sequences related 
               to automorphic numbers</a>
%H A033819 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               TrimorphicNumber.html">Link to a section of The World of Mathematics.</
               a>
%e A033819 376^3 = 53157376 which ends with 376.
%t A033819 Do[x=Floor[N[Log[10, n], 25]]+1; If[Mod[n^3, 10^x] == n, Print[n]], {n, 
               1, 10000}]
%Y A033819 Cf. A074194.
%Y A033819 Sequence in context: A020669 A091730 A058076 this_sequence A058782 A115762 
               A144022
%Y A033819 Adjacent sequences: A033816 A033817 A033818 this_sequence A033820 A033821 
               A033822
%K A033819 base,nonn
%O A033819 1,3
%A A033819 David W. Wilson (davidwwilson(AT)comcast.net)