OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..808 (terms below 10^11)
EXAMPLE
The first 6 values of the psi function are 1, 3, 4, 6, 6, 12. The record values, 1, 3, 4, 6, 12 are at positions 1, 2, 3, 4, 6.
MATHEMATICA
psi[1] = 1; psi[n_] := n * Times @@ (1 + 1/FactorInteger[n][[;; , 1]]); seq = {}; pmax = 0; Do[p = psi[n]; If[p > pmax, pmax = p; AppendTo[seq, n]], {n, 1, 10^5}]; seq
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Nov 26 2019
STATUS
approved