login
A045770
Numbers k such that sigma(k) == 8 (mod k).
27
1, 7, 10, 49, 56, 368, 836, 11096, 17816, 45356, 77744, 91388, 128768, 254012, 388076, 2087936, 2291936, 13174976, 29465852, 35021696, 45335936, 120888092, 260378492, 381236216, 775397948, 3381872252, 4856970752, 6800228816, 8589344768, 44257207676, 114141404156, 1461083549696, 1471763808896, 2199013818368
OFFSET
1,2
COMMENTS
Every number of the form 2^(j-1)*(2^j - 9), where 2^j - 9 is prime, is a term (cf. A059610). - Jon E. Schoenfield, Jun 02 2019
If m is a term of A045768 with gcd(m,3) = 1 and sigma(m) = 3*q*m + 2 for some integer q, then 3*m is a term of this sequence since sigma(3*m) = 4*q*(3*m) + 8. Some terms above a(43): 1700388548189538291286016, 5105603016727927767597056, 14752976989200372115199996, 79025520646386734757380096, 85954979333046510417991676. - Max Alekseyev, Oct 20 2025
LINKS
Max Alekseyev, Table of n, a(n) for n = 1..43 (first 36 terms from Jud McCranie)
MAPLE
q:= k-> nops(map(x-> x mod k, {8, numtheory[sigma](k)}))=1:
select(q, [$1..100000])[]; # Alois P. Heinz, Apr 07 2025
MATHEMATICA
Select[Range[1000000], Mod[DivisorSigma[1, #] - 8, #] == 0 &] (* Pontus von Brömssen, Apr 07 2025 *)
PROG
(PARI) isok(k) = Mod(sigma(k), k) == 8; \\ Pontus von Brömssen, Apr 07 2025
CROSSREFS
Contains subsequence A088833.
Sequence in context: A013398 A013493 A166661 * A025632 A038276 A249952
KEYWORD
nonn
AUTHOR
EXTENSIONS
a(18)-a(26) from T. D. Noe, Apr 06 2011
Initial term 1 added and a(27)-a(31) from Donovan Johnson, Mar 01 2012
a(32)-a(34) from Giovanni Resta, Apr 02 2014
Term a(2)=7 inserted by Pontus von Brömssen, Apr 07 2025
STATUS
approved