A087485 Odd numbers n such that 2n - sigma(n) = 6.
7, 15, 315, 1155, 815634435
Offset: 1
Examples
15 is in the sequence because 2*15-sigma(15)=6.
Programs
-
Mathematica
Do[If[OddQ[n]&&2n-DivisorSigma[1, n]==6, Print[n]], {n, 2*10^9}]
-
PARI
is(n)=bittest(n,0)&&sigma(n)+6==2*n \\ M. F. Hasler, Apr 12 2015
Formula
a(3) = a(2)*3*7; a(4) = a(2)*7*11 with 7 = precprime(a(2)*2/3), 11=nextprime(a(2)*2/3); a(5) = a(4)*547*1291. - M. F. Hasler, Apr 13 2015
Comments