A076828 Record high values in A078142.

0, 2, 4, 6, 8, 10, 12, 14, 17, 20, 23, 28, 29, 32, 33, 40, 41, 42, 48, 52, 54, 57, 58, 65, 67, 72, 74, 77, 80, 89, 91, 92, 98, 102, 108, 112, 113, 114, 117, 122, 126, 127, 132, 138, 140, 143, 148, 150, 152, 153, 161, 168, 171, 173, 180, 182, 188, 191, 197, 203, 209

Offset: 1

Author

Jason Earls, Nov 21 2002

Keywords

• easy
• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000
• Amiram Eldar, Table of n, k, a(n) = A078142(k) for n=1..10000

Crossrefs

Cf. A078142.

Programs

Mathematica

s[n_] := Total[Ceiling[Sqrt[(p = FactorInteger[n][[;; , 1]])]]^2 - p]; seq={}; sm = -1; Do[s1 = s[n]; If[s1 > sm, sm = s1; AppendTo[seq, s1]], {n, 1, 10^4}]; seq (* Amiram Eldar, Dec 08 2019 *)
f[n_]:=Module[{difs=Transpose[FactorInteger[n]][[1]]},Total[Ceiling[Sqrt[difs]]^2-difs]];DeleteDuplicates[Array[f,12000],GreaterEqual] (* Harvey P. Dale, Sep 07 2022 *)