OFFSET
1,2
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
EXAMPLE
a(4) = 4 because 4 positive integers divide evenly into A025487(4) = 6: 1, 2, 3 and 6.
MATHEMATICA
s = {1}; Do[If[GreaterEqual @@ (f = FactorInteger[n])[[;; , 2]] && PrimePi[f[[-1, 1]]] == Length[f], AppendTo[s, DivisorSigma[0, n]]], {n, 2, 10000}]; s (* Amiram Eldar, Aug 05 2024 *)
PROG
(Haskell)
a146288 = a000005 . a025487 -- Reinhard Zumkeller, Sep 17 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Matthew Vandermast, Nov 11 2008
STATUS
approved