OFFSET
1,1
COMMENTS
For the first 26 terms, the quotient sigma(k)/phi(k) is 2 or 3.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..7013 (terms below 6.5*10^14, calculated using data from Jud McCranie)
MAPLE
with(numtheory); BNM5:=[]: for z from 1 to 1 do for m from 1 to 1000000 do n:=12*m+5; if sigma(n) mod phi(n) = 0 then BNM5:=[op(BNM5), n] fi; od; od; BNM5;
MATHEMATICA
Select[Range[5, 12000000, 12], MemberQ[{2, 3}, DivisorSigma[1, #]/EulerPhi[#]]&] (* Harvey P. Dale, May 06 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Walter Kehowski, Sep 13 2005
EXTENSIONS
a(10)-a(26) from Donovan Johnson, Aug 30 2012
STATUS
approved