OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
s[n_] := Total[Ceiling[Sqrt[(p = FactorInteger[n][[;; , 1]])]]^2 - p]; s0 = 0; seq = {}; Do[s2 = s[n]; If[s1 == s2, AppendTo[seq, n - 1]]; s1 = s2, {n, 2, 1334}]; seq (* Amiram Eldar, Dec 05 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Nov 20 2002
STATUS
approved