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,2

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

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 *)

Crossrefs

Cf. A078142.

Sequence in context: A186329 A062417 A240114 * A276106 A321501 A238264

Adjacent sequences: A076825 A076826 A076827 * A076829 A076830 A076831

Keyword

easy,nonn

Author

Jason Earls, Nov 21 2002

Status

approved