login
Initial digits of A254143 in decimal representation.
8

%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