OFFSET
1,3
COMMENTS
If n is a member, then so is 100*n. - Robert Israel, Jul 06 2018
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(10)=361 because 361=19^2 and 3+6=9.
MAPLE
f:= proc(n) local L;
L:= convert(subs(1=NULL, 4=NULL, 9=NULL, convert(n^2, base, 10)), `+`);
if issqr(L) then n^2 fi
end proc:
map(f, [$0..200]); # Robert Israel, Jul 06 2018
MATHEMATICA
sndQ[n_]:=Module[{s=Total[Select[IntegerDigits[n], !IntegerQ[Sqrt[#]]&]]}, IntegerQ[ Sqrt[s]]]; Select[Range[0, 200]^2, sndQ] (* Harvey P. Dale, Jun 01 2022 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jason Earls, Jul 07 2003
EXTENSIONS
Offset changed by Robert Israel, Jul 06 2018
STATUS
approved