



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS

Jud McCranie, Table of n, a(n) for n = 1..109 (first 79 terms from T. D. Noe and terms n=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

Cf. A000010, A014197, A097942.
Sequence in context: A018578 A056910 A212774 * A066501 A199191 A102570
Adjacent sequences: A131931 A131932 A131933 * A131935 A131936 A131937


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



