A045768 Numbers k such that sigma(k) == 2 (mod k).
1, 20, 104, 464, 650, 1952, 130304, 522752, 8382464, 134193152, 549754241024, 8796086730752, 140737463189504, 144115187270549504
Offset: 1
Keywords
Examples
sigma(650) = 1302 == 2 (mod 650).
References
- R. K. Guy, Unsolved Problems in Number Theory, B2.
Links
- Amitabha Tripathi, A note on products of primes that differ by a fixed integer, Fibonacci Quart. 48 (2010), no. 2, 144-149.
Crossrefs
Programs
-
Mathematica
Do[If[Mod[DivisorSigma[1, n]-2, n]==0, Print[n]], {n, 1, 10^8}] Join[{1}, Select[Range[8000000], Mod[DivisorSigma[1, #], #]==2 &]] (* Vincenzo Librandi, Mar 11 2014 *)
-
PARI
is(n)=sigma(n)%n==2 || n==1 \\ Charles R Greathouse IV, Mar 09 2014
Extensions
More terms from Jud McCranie, Dec 22 1999.
a(11) from Donovan Johnson, Mar 01 2012
a(12) from Giovanni Resta, Apr 02 2014
a(13) from Jud McCranie, Jun 02 2019
Edited and a(14) from Jon E. Schoenfield confirmed by Max Alekseyev, May 23 2025
Comments