A131934 Records in A014197.

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

Author

N. J. A. Sloane, Nov 05 2007

Keywords

• nonn

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)

Crossrefs

Cf. A000010, A014197, A097942.

Programs

Maple

# For the function HighlyTotientNumbers see A097942.
A131934_list := n -> seq(s[2], s = HighlyTotientNumbers(n));
A131934_list(500); # Peter Luschny, Sep 01 2012

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

Formula

a(n) = A014197(A097942(n)). - R. J. Mathar, Nov 07 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