OFFSET
1,1
LINKS
Pedro Henrique O. Pantoja, Problem 3506, Crux Mathematicorum, February 2010, Volume 36 Number 1, p. 45.
EXAMPLE
747 is a member: Q(747) = 7+4+7 = 18, Q(747^2) = Q(558009) = 5+5+8+0+0+9 = 27, Q(747^3) = Q(416832723) = 4+1+6+8+3+2+7+2+3 = 36, Q(747) + Q(747^2) + Q(747^3) = 18 + 27 + 36 = 81 = 9^2.
MAPLE
for n from 1 to 2200 do if isA153185(n) then printf("%d, ", n); end if; end do: # R. J. Mathar, Jul 08 2010
MATHEMATICA
sdnQ[n_]:=IntegerQ[Sqrt[Total[IntegerDigits[n]]+Total[IntegerDigits[ n^2]]+ Total[IntegerDigits[n^3]]]]; Select[Range[2100], sdnQ] (* Harvey P. Dale, Nov 25 2011 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Neven Juric (neven.juric(AT)apis-it.hr), Jul 07 2010, corrected Jul 09 2010
EXTENSIONS
1161 inserted by R. J. Mathar, Jul 08 2010
STATUS
approved