%I A002993 M3348
%S A002993 1,4,9,1,2,3,4,6,8,1,1,1,1,1,2,2,2,3,3,4,4,4,5,5,6,6,7,7,8,9,9,1,1,
%T A002993 1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,4,4,4,4,4,
               4
%N A002993 Initial digits of squares.
%D A002993 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, 
               Academic Press, 1995 (includes this sequence).
%H A002993 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               GelfandsQuestion.html">Gelfand's Question</a>
%t A002993 a[n_]:=First[IntegerDigits[n^2]];lst={};Do[AppendTo[lst,a[n]],{n,0,5!}];
               lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Dec 21 2008]
%Y A002993 a(n)=A000030(A000290(n)), A089951, A002994. [From Reinhard Zumkeller 
               (reinhard.zumkeller(AT)gmail.com), Aug 17 2008]
%Y A002993 Sequence in context: A135244 A011514 A011238 this_sequence A011290 A129971 
               A007892
%Y A002993 Adjacent sequences: A002990 A002991 A002992 this_sequence A002994 A002995 
               A002996
%K A002993 nonn,base
%O A002993 1,2
%A A002993 N. J. A. Sloane (njas(AT)research.att.com).