The OEIS is supported by the many generous donors to the OEIS Foundation.

A304278
Numbers equal to the sum of their aliquot parts, each of them increased by 6.
8
7, 33, 148, 165, 1485, 40005, 156928, 195077085, 539705344, 137496887296, 2199280156672
OFFSET
1,1
Searched up to n = 10^12.
a(12) > 10^18. - Hiroaki Yamanouchi, Aug 28 2018
From Giovanni Resta, May 11 2018: (Start)
If p = 2^(1+t) + (1+2*t)*k - 1 is a prime, for some t > 0 and k even, then x = 2^t*p is in the sequence where k is the value by which the sum of aliquot parts is increased.
In this sequence k = 6 and for t = 20 we get 2199280156672 that is another term greater than 137496887296 but this does not exclude the existence of other intermediate terms following a different solution pattern.
(End)
Terms using odd values of k seem very hard to find. Up to n = 10^12, only three such terms are known: 2, 98, and 8450, for k = 1, 5, and -7, respectively.
EXAMPLE
Aliquot part of 7 is 1 and 1+6 = 7.
Aliquot parts of 33 are 1, 3, 11 and (1+6) + (3+6) + (11+6) = 33.
MAPLE
with(numtheory): P:=proc(q, k) local n;
for n from 1 to q do if 2*n=sigma(n)+k*(tau(n)-1) then print(n);
fi; od; end: P(10^12, 6);
MATHEMATICA
With[{k = 6}, Select[Range[10^6], DivisorSum[#, # + k &] - (# + k) == # &] ] (* Michael De Vlieger, May 14 2018 *)
CROSSREFS
Sequence in context: A089106 A211829 A227555 * A155603 A282991 A344816
KEYWORD
nonn,hard,more
AUTHOR
EXTENSIONS
a(11) from Hiroaki Yamanouchi, Aug 28 2018
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified September 20 10:59 EDT 2024. Contains 376068 sequences. (Running on oeis4.)