A114808 - OEIS

%I #10 Mar 14 2015 15:46:29

%S 424,124,624,312,415,624,781,243,906,241,953,124,976,562,448,828,124,

%T 244,140,624,122,70,312,461,35,156,243,51,757,812,415,258,789,62,476,

%U 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 The numbers 5^n-1 written in groups of three digits, with leading zeros omitted.

%e 4, 24, 124, 624, 3124, 15624, ...

%p L := [] ;

%p for n from 1 to 30 do

%p     dggs := ListTools[Reverse](convert(5^n-1,base,10) );

%p     L := [op(L),op(dggs)] ;

%p end do:

%p for k from 1 to nops(L)-3 by 3 do

%p     op(k,L)*100+op(k+1,L)*10+op(k+2,L) ;

%p     printf("%d,",%) ;

%p end do: # _R. J. Mathar_, Jun 23 2014

%t FromDigits[#] & /@ Partition[ Flatten@ IntegerDigits@ Table[5^n - 1, {n, 22}], 3] (* _Robert G. Wilson v_, Jun 23 2014 *)

%Y Cf. A024049, A103455, A114645.

%K base,dumb,nonn

%O 1,1

%A _Jonathan Vos Post_, Feb 19 2006

%E Definition and terms realigned with A114645 by _Robert G. Wilson v_, Jun 23 2014