OFFSET
1,3
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
8762 is in the sequence because 8 + 7^2 + 6^3 + 2^4 = 289 = 17^2.
MAPLE
with(numtheory):for n from 0 to 1500 do:l:=length(n):n0:=n:s:=0:for m from
1 to l do:q:=n0:u:=irem(q, 10):v:=iquo(q, 10):n0:=v :s:=s+u^(l-m+1):od:if type(sqrt(s), integer)=true then printf(`%d, `, n):else fi:od:
MATHEMATICA
sqQ[n_]:=Module[{idn=IntegerDigits[n]}, IntegerQ[Sqrt[Total[idn^Range[ Length[ idn]]]]]]; Select[Range[0, 1500], sqQ] (* Harvey P. Dale, Jun 22 2011 *)
PROG
(Sage) is_A178224 = lambda x: is_square(sum(d**i for i, d in enumerate(reversed(x.digits()), 1))) # D. S. McNeil, Dec 20 2010
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Lagneau, Dec 20 2010
EXTENSIONS
Offset corrected by Robert Israel, Feb 19 2024
STATUS
approved