OFFSET
1,1
REFERENCES
M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, 1964 (and various reprintings), p. 840.
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..1000
M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].
R. G. Wilson, V, Letter to N. J. A. Sloane, Jul. 1992
MATHEMATICA
a = Table[ 0, {2500} ]; Do[ s = DivisorSigma[ 1, n ]; If[ s < 2501, a[ [ s ] ]++ ], {n, 1, 2500} ]; Select[ Range[ 2500 ], a[ [ # ] ] == 3 & ]
PROG
(PARI) is(n)=sum(k=1, n, sigma(k)==n)==3 \\ Charles R Greathouse IV, Mar 09 2014
CROSSREFS
KEYWORD
nonn
STATUS
approved