A114808 The numbers 5^n-1 written in groups of three digits, with leading zeros omitted.
424, 124, 624, 312, 415, 624, 781, 243, 906, 241, 953, 124, 976, 562, 448, 828, 124, 244, 140, 624, 122, 70, 312, 461, 35, 156, 243, 51, 757, 812, 415, 258, 789, 62, 476, 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
Offset: 1
Examples
4, 24, 124, 624, 3124, 15624, ...
Programs
-
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 *)
Extensions
Definition and terms realigned with A114645 by Robert G. Wilson v, Jun 23 2014