OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
k such that A068976(k) > k.
MATHEMATICA
f[p_, e_] := If[OddQ[e], 2*(p^(e + 1) - 1)/(p^2 - 1), (p^(e + 2) + p^e - 2)/(p^2 - 1)]; Select[Range[2, 1000], Times @@ (f @@@ FactorInteger[#]) > # &] (* Amiram Eldar, Sep 03 2020 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Apr 14 2002
STATUS
approved