cp's OEIS Frontend

A114808 The numbers 5^n-1 written in groups of three digits, with leading zeros omitted.

%I A114808 #10 Mar 14 2015 15:46:29
%S A114808 424,124,624,312,415,624,781,243,906,241,953,124,976,562,448,828,124,
%T A114808 244,140,624,122,70,312,461,35,156,243,51,757,812,415,258,789,62,476,
%U A114808 293,945,312,438,146,972,656,241,907,348,632,812,495,367,431,640,624,476,837,158,203,124,238,418,579
%N A114808 The numbers 5^n-1 written in groups of three digits, with leading zeros omitted.
%e A114808 4, 24, 124, 624, 3124, 15624, ...
%p A114808 L := [] ;
%p A114808 for n from 1 to 30 do
%p A114808     dggs := ListTools[Reverse](convert(5^n-1,base,10) );
%p A114808     L := [op(L),op(dggs)] ;
%p A114808 end do:
%p A114808 for k from 1 to nops(L)-3 by 3 do
%p A114808     op(k,L)*100+op(k+1,L)*10+op(k+2,L) ;
%p A114808     printf("%d,",%) ;
%p A114808 end do: # _R. J. Mathar_, Jun 23 2014
%t A114808 FromDigits[#] & /@ Partition[ Flatten@ IntegerDigits@ Table[5^n - 1, {n, 22}], 3] (* _Robert G. Wilson v_, Jun 23 2014 *)
%Y A114808 Cf. A024049, A103455, A114645.
%K A114808 base,dumb,nonn
%O A114808 1,1
%A A114808 _Jonathan Vos Post_, Feb 19 2006
%E A114808 Definition and terms realigned with A114645 by _Robert G. Wilson v_, Jun 23 2014