|
%I #13 Dec 16 2023 23:55:04
%S 0,1,2,3,4,5,6,7,8,9,1,1,2,3,4,5,6,7,8,9,2,2,2,3,4,5,6,7,8,9,3,3,3,4,
%T 5,5,6,7,8,9,4,4,4,5,5,6,7,8,8,9,5,5,5,5,6,7,7,8,9,10,6,6,6,6,7,7,8,9,
%U 10,10,7,7,7,7,8,8,9,9,10,11,8,8,8,8,8,9,10,10,11,12,9,9,9,9,9,10,10,11
%N Floor( sqrt( sum of the decimal digits of n squared)).
%C Terms from _Robert G. Wilson v_.
%F a(n) = floor(sqrt(A003132)).
%t Table[Floor[Sqrt[Apply[Plus, IntegerDigits[n]^2]]], {n, 0, 100}] (* _Robert G. Wilson v_ *)
%K base,easy,nonn
%O 0,3
%A _Amarnath Murthy_, Feb 05 2002
%E a(0)=0 inserted by _Sean A. Irvine_, Dec 16 2023
|
