%I A045537
%S A045537 2,2,5,5,3,2,2,5,5,3,2,11,14,10,8,26,6,17,5,11,5,6,10,15,3,2,19,15,7,8,
               5,
%T A045537 11,3,14,14,10,6,10,6,11,3,6,18,5,11,5,18,9,5,3,2,3,7,16,17,11,3,5,9,
%U A045537 11,2,6,7,7,11,17,15,8,5,11,5,9,8,5,8,3,2,16,21,11,5,6,14,4,11,22,22,7
%N A045537 Least nontrivial exponent e such that n is a substring of n^e.
%C A045537 n^a(n) = A104782(n).
%H A045537 <a href="Sindx_Ar.html#automorphic">Index entries for sequences related 
               to automorphic numbers</a>
%t A045537 f[n_] := Block[{k = 2}, While[ StringPosition[ ToString[n^k], ToString[n]] 
               == {}, k++ ]; k]; Table[ f[n], {n, 0, 87}] (from Robert G. Wilson 
               v (rgwv(AT)rgwv.com), May 09 2005)
%Y A045537 Sequence in context: A054156 A054079 A005177 this_sequence A161622 A116559 
               A008280
%Y A045537 Adjacent sequences: A045534 A045535 A045536 this_sequence A045538 A045539 
               A045540
%K A045537 base,nonn
%O A045537 0,1
%A A045537 Erich Friedman (erich.friedman(AT)stetson.edu)