%I A064770
%S A064770 0,1,1,1,2,2,2,2,2,3,10,11,11,11,12,12,12,12,12,13,10,11,11,11,12,12,
%T A064770 12,12,12,13,10,11,11,11,12,12,12,12,12,13,20,21,21,21,22,22,22,22,
%U A064770 22,23,20,21,21,21,22,22,22,22,22,23,20,21,21,21,22,22,22,22,22,23
%N A064770 Replace each digit of n by the floor of its square root.
%C A064770 The graph of this sequence is fractal-like.
%C A064770 a(A007088(n))=A007088(n); a(A136399(n))<>A136399(n); a(a(n))=A136400(n); 
               a(A136400(n))=A136400(n); A136428(n)=a(n+1)-a(n). - Reinhard Zumkeller 
               (reinhard.zumkeller(AT)gmail.com), Dec 30 2007
%H A064770 R. Zumkeller, <a href="b064770.txt">Table of n, a(n) for n = 0..9999</
               a>
%H A064770 O. Gerard, <a href="http://www.seqfan.net/spadaro/A064770-1.gif">Fractal 
               behavior of this sequence (1)</a>
%H A064770 O. Gerard, <a href="http://www.seqfan.net/spadaro/A064770-2.gif">Fractal 
               behavior of this sequence (2)</a>
%e A064770 26 -> [1.414...][2.449...] -> 12, so a(26) = 12.
%t A064770 Table[ FromDigits[ Floor[ Sqrt[ IntegerDigits[ n]]]], {n, 0, 100} ]
%Y A064770 Sequence in context: A079954 A079629 A029116 this_sequence A060467 A125918 
               A083533
%Y A064770 Adjacent sequences: A064767 A064768 A064769 this_sequence A064771 A064772 
               A064773
%K A064770 base,nonn,nice
%O A064770 0,5
%A A064770 Santi Spadaro (spados(AT)katamail.com), Oct 19 2001