OFFSET
1,1
EXAMPLE
For k=3, we have DigitSum(3^2) = 9 > 7 = DigitSum(4^2).
MATHEMATICA
lis = Table[Total[IntegerDigits[n^2, 10]], {n, 1, 100}];
Flatten[Position[Greater @@@ Partition[lis, 2, 1], True]]
Position[Partition[Total[IntegerDigits[#]]&/@(Range[150]^2), 2, 1], _?(#[[1]]> #[[2]]&), 1, Heads->False]//Flatten (* Harvey P. Dale, Feb 19 2020 *)
PROG
(PARI) isok(k) = sumdigits(k^2) > sumdigits((k+1)^2); \\ Michel Marcus, Jul 03 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Oliver Bel, Mar 29 2014
EXTENSIONS
More terms from Jon E. Schoenfield, Mar 29 2014
STATUS
approved