|
%I #15 Oct 04 2016 09:34:21
%S 20,26,41,44,65,83,132,133,140,182,188,195,249,287,299,420,546,564,
%T 620,644,764,806,861,897,1001,1115,1169,1271,28644,32172,35052,39116,
%U 40796,41478,42315,47492,50162,51513,52143,53745,54033,54483,56427,56642
%N Numbers n such that sigma(sigma(sigma(n))) == 6*sigma(n).
%H Harry J. Smith, <a href="/A067065/b067065.txt">Table of n, a(n) for n = 1..146</a>
%t Select[Range[60000],Nest[DivisorSigma[1,#]&,#,3]==6*DivisorSigma[1,#]&] (* _Harvey P. Dale_, Oct 04 2016 *)
%o (PARI) { n=0; for (m=1, 10^10, if (sigma(sigma(sigma(m))) == 6*sigma(m), write("b067065.txt", n++, " ", m); if (n==1000, return)) ) } \\ _Harry J. Smith_, May 03 2010
%K nonn
%O 1,1
%A _Benoit Cloitre_, Feb 17 2002
%E Definition corrected by _Harry J. Smith_, May 03 2010
%E Terms added by _Harry J. Smith_, May 03 2010
|
