login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A076828 Record high values in A078142. 1

%I

%S 0,2,4,6,8,10,12,14,17,20,23,28,29,32,33,40,41,42,48,52,54,57,58,65,

%T 67,72,74,77,80,89,91,92,98,102,108,112,113,114,117,122,126,127,132,

%U 138,140,143,148,150,152,153,161,168,171,173,180,182,188,191,197,203,209

%N Record high values in A078142.

%H Amiram Eldar, <a href="/A076828/b076828.txt">Table of n, a(n) for n = 1..10000</a>

%H Amiram Eldar, <a href="/A076828/a076828.txt">Table of n, k, a(n) = A078142(k) for n=1..10000</a>

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

%Y Cf. A078142.

%K easy,nonn

%O 1,2

%A _Jason Earls_, Nov 21 2002

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 18 04:48 EST 2020. Contains 332011 sequences. (Running on oeis4.)