OFFSET
1,2
COMMENTS
a(21) > 15*10^9. - Donovan Johnson, Nov 01 2009
a(22) > 10^11. - Donovan Johnson, Jul 09 2010
a(26) > 5*10^12. - Giovanni Resta, Apr 25 2017
FORMULA
Solutions to Mod[A088822[x], x]=0.
MATHEMATICA
gp[n_] := If[n==1, 0, FactorInteger[n][[-1, 1]]]; Flatten@ Position[ Accumulate[ gp /@ Range[10^5]] / Range[10^5], _Integer] (* Giovanni Resta, Apr 25 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Oct 22 2003
EXTENSIONS
More terms from Ray Chandler, Oct 31 2003
a(17)-a(20) from Donovan Johnson, Nov 01 2009
a(21) from Donovan Johnson, Jul 09 2010
a(22)-a(25) from Giovanni Resta, Apr 25 2017
STATUS
approved