login
A131934
Records in A014197.
8
2, 3, 4, 5, 6, 10, 11, 17, 21, 31, 34, 37, 38, 49, 54, 72, 98, 126, 129, 176, 178, 247, 276, 281, 331, 359, 399, 441, 454, 525, 558, 692, 718, 734, 764, 1023, 1138, 1485, 1755, 2008, 2166, 2590, 2702, 2733, 3169, 3687, 3802, 4133, 4604, 5025, 5841, 6019, 6311
OFFSET
1,1
LINKS
Jud McCranie, Table of n, a(n) for n = 1..109 (terms 1..79 from T. D. Noe, terms 80..86 from Donovan Johnson)
FORMULA
a(n) = A014197(A097942(n)). - R. J. Mathar, Nov 07 2007
MAPLE
# For the function HighlyTotientNumbers see A097942.
A131934_list := n -> seq(s[2], s = HighlyTotientNumbers(n));
A131934_list(500); # Peter Luschny, Sep 01 2012
PROG
(Sage)
# For the function HighlyTotientNumbers see A097942.
A131934_list = lambda n: [s[1] for s in HighlyTotientNumbers(n)]
A131934_list(500) # Peter Luschny, Sep 01 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Nov 05 2007
EXTENSIONS
More terms from R. J. Mathar, Nov 07 2007
Deleted my csh program which is unstable at high indices - R. J. Mathar, Mar 17 2010
Corrected and extended by T. D. Noe, Mar 16 2010
STATUS
approved