%I #9 May 13 2015 13:33:56
%S 1,4,7,1,2,3,3,4,6,1,1,2,2,2,3,3,3,4,6,1,1,1,1,1,1,2,2,2,2,2,2,3,3,3,
%T 3,4,4,6,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,4,4,6,1,1,
%U 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2
%N Initial digits of A254143 in decimal representation.
%C a(n) = A000030(A254143(n));
%C also initial digits of A254323: a(n) = A000030(A254323(n)).
%C all terms are of the form u*v mod 10, where u <= v and belonging to {1,3,4,6,7}, the distinct elements of A254397:
%C length of k-th run of consecutive 1s = A005993(k-2), k > 1;
%C length of k-th run of consecutive 2s = k*(k+1)/2 = A000217(k), k >= 1;
%C length of k-th run of consecutive 3s = k+1, k >= 1;
%C length of k-th run of consecutive 4s = A065033(k-1);
%C n with a(n) = 4: A237424(n) = (10^a+10^b+1)/3 with b = 0, see also A093137, A133384;
%C n with a(n) = 6: A237424(n) = (10^a+10^b+1)/3 with a = b; A005994(a(n)) = 6 for n > 1; see also A199682;
%H Reinhard Zumkeller, <a href="/A254338/b254338.txt">Table of n, a(n) for n = 1..10000</a>
%o (Haskell)
%o a254338 = a000030 . a254143
%o (PARI) listA237424(lim)=my(v=List(),a,t); while(1, for(b=0,a, t=(10^a+10^b+1)/3; if(t>lim, return(Set(v))); listput(v, t)); a++)
%o do(lim)=my(v=List(),u=listA237424(lim),t); for(i=1,#u, for(j=1,i, t=u[i]*u[j]; if(t>lim,break); listput(v,t))); apply(n->digits(n)[1], Set(v)) \\ _Charles R Greathouse IV_, May 13 2015
%Y Cf. A254143, A254323, A000030, A254339, A005993, A000217, A065033.
%K nonn,base
%O 1,2
%A _Reinhard Zumkeller_, Feb 27 2015