A193065 Odd numbers N for which numerator(sigma(N)/N) is a prime.
9, 25, 289, 729, 1521, 1681, 2401, 3481, 5041, 7921, 10201, 15625, 17161, 27889, 28561, 29929, 83521, 85849, 146689, 257049, 279841, 458329, 491401, 531441, 552049, 579121, 597529, 683929, 703921, 707281, 734449, 829921, 1190281, 1203409, 1352569, 1394761, 1423249, 1481089, 1885129, 2036329, 2211169
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A000203.
Programs
-
Mathematica
Select[Range[1,23*10^5,2],PrimeQ[Numerator[DivisorSigma[1,#]/#]]&] (* Harvey P. Dale, Sep 17 2017 *)
-
PARI
forstep(N=1,1e7,2,isprime(numerator(sigma(N)/N)) && print1(N","))
Formula
a(n) = A193066(n)^2.
Comments