OFFSET
1,12
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
a(12) = 2 since there are 2 solutions to bsigma(x) = 12 (bsigma is A188999): 6 and 11.
MATHEMATICA
fun[p_, e_] := If[OddQ[e], (p^(e + 1) - 1)/(p - 1), (p^(e + 1) - 1)/(p - 1) - p^(e/2)]; bsigma[1] = 1; bsigma[n_] := Times @@ (fun @@@ FactorInteger[n]); m = 100; v = Table[0, {m}]; Do[b = bsigma[k]; If[b <= m, v[[b]]++], {k, 1, m}]; v
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Feb 05 2020
STATUS
approved