login
A290303
Values of usigma(n) = usigma(n+1).
2
24, 60, 72, 180, 1440, 2160, 1872, 2640, 2400, 3000, 2880, 3024, 4320, 4320, 4320, 5280, 5280, 7400, 8640, 10080, 10200, 11520, 11880, 11520, 11088, 12960, 12096, 14400, 25920, 21600, 26640, 34560, 25200, 40320, 34560, 36000, 51840, 60480, 63360, 60480, 65280
OFFSET
1,1
COMMENTS
The sum of unitary divisors of numbers n such that n and n+1 have the same sum.
The unitary version of A053215.
LINKS
FORMULA
a(n) = A034448(A064125(n)).
MATHEMATICA
usigma[n_] := Block[{d = Divisors[n]}, Plus @@ Select[d, GCD[ #, n/# ] == 1 &]]; a={}; u1=0; For[k=0, k<10^5, k++; u2=usigma[k]; If[u1==u2, a = AppendTo[a, u1]]; u1=u2]; a
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Jul 26 2017
STATUS
approved