OFFSET
1,1
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..10000
EXAMPLE
5041 is a member with 5+0 = 4+1.
PROG
(PARI) isok(n)={my(d=digits(n)); my(k=#d); k%2==0 && vecsum(d[1..k/2]) == vecsum(d[k/2+1..k])}
lista(n)={my(L=List(), k=0); while(#L<n, k++; my(t=k^2); if(isok(t), listput(L, t))); Vec(L)} \\ Andrew Howroyd, Sep 19 2024
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Amarnath Murthy, Mar 21 2002
EXTENSIONS
Corrected and extended by Harvey P. Dale, Mar 31 2002
Offset changed by Andrew Howroyd, Sep 19 2024
STATUS
approved