OFFSET
1,1
COMMENTS
Yet another variant of the Kaprekar numbers A006886.
LINKS
Rémy Sigrist, Table of n, a(n) for n = 1..25000
MATHEMATICA
Sqrt[Select[Range[600000]^2, EvenQ[len=IntegerLength[#]] && # == (Mod[#, 10^(len/2)] + Floor[#/10^(len/2)])^2 &]] (* Stefano Spezia, Jan 01 2025 *)
CROSSREFS
KEYWORD
nonn,base,changed
AUTHOR
N. J. A. Sloane, Aug 06 2017, following a suggestion from Max Alekseyev
STATUS
approved