OFFSET
1,1
EXAMPLE
4, 24, 124, 624, 3124, 15624, ...
MAPLE
L := [] ;
for n from 1 to 30 do
dggs := ListTools[Reverse](convert(5^n-1, base, 10) );
L := [op(L), op(dggs)] ;
end do:
for k from 1 to nops(L)-3 by 3 do
op(k, L)*100+op(k+1, L)*10+op(k+2, L) ;
printf("%d, ", %) ;
end do: # R. J. Mathar, Jun 23 2014
MATHEMATICA
FromDigits[#] & /@ Partition[ Flatten@ IntegerDigits@ Table[5^n - 1, {n, 22}], 3] (* Robert G. Wilson v, Jun 23 2014 *)
CROSSREFS
KEYWORD
base,dumb,nonn
AUTHOR
Jonathan Vos Post, Feb 19 2006
EXTENSIONS
Definition and terms realigned with A114645 by Robert G. Wilson v, Jun 23 2014
STATUS
approved