OFFSET
1,2
REFERENCES
J.-M. De Koninck, Ces nombres qui nous fascinent, Entry 217, p. 62, Ellipses, Paris 2008.
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..1000
Frits Beukers, Florian Luca and Frans Oort, Power Values of Divisor Sums, The American Mathematical Monthly, Vol. 119, No. 5 (May 2012), pp. 373-380.
MATHEMATICA
Select[Range[16000], IntegerQ[Power[DivisorSigma[1, #], (4)^-1]]&] (* Harvey P. Dale, Jan 22 2012 *)
PROG
(PARI) c=0; for(n=1, 8240486, if(ispower(sigma(n), 4), c++; write("b019422.txt", c " " n))) /* Donovan Johnson, Jun 13 2013 */
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved