|
%I #26 Nov 02 2023 02:06:47
%S 2,3,4,5,6,10,11,17,21,31,34,37,38,49,54,72,98,126,129,176,178,247,
%T 276,281,331,359,399,441,454,525,558,692,718,734,764,1023,1138,1485,
%U 1755,2008,2166,2590,2702,2733,3169,3687,3802,4133,4604,5025,5841,6019,6311
%N Records in A014197.
%H Jud McCranie, <a href="/A131934/b131934.txt">Table of n, a(n) for n = 1..109</a> (terms 1..79 from T. D. Noe, terms 80..86 from Donovan Johnson)
%F a(n) = A014197(A097942(n)). - _R. J. Mathar_, Nov 07 2007
%p # For the function HighlyTotientNumbers see A097942.
%p A131934_list := n -> seq(s[2], s = HighlyTotientNumbers(n));
%p A131934_list(500); # _Peter Luschny_, Sep 01 2012
%o (Sage)
%o # For the function HighlyTotientNumbers see A097942.
%o A131934_list = lambda n: [s[1] for s in HighlyTotientNumbers(n)]
%o A131934_list(500) # _Peter Luschny_, Sep 01 2012
%Y Cf. A000010, A014197, A097942.
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Nov 05 2007
%E More terms from _R. J. Mathar_, Nov 07 2007
%E Deleted my csh program which is unstable at high indices - _R. J. Mathar_, Mar 17 2010
%E Corrected and extended by _T. D. Noe_, Mar 16 2010
|
