|
%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
|
