|
|
A078194
|
|
In the following triangle the n-th row contains n n-digit (or (n-1)-digit) numbers whose concatenation (with a 0 prefixed for (n-1)-digit numbers) gives a substring of the cyclic concatenation of 1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6,7,8,9,0,1,2,...: 1; 12 34; 123 456 789; 1234 5678 9012 3456; 12345 67890 12345 67890 12345; ... Sequence contains the triangle by rows.
|
|
3
|
|
|
1, 12, 34, 123, 456, 789, 1234, 5678, 9012, 3456, 12345, 67890, 12345, 67890, 12345, 123456, 789012, 345678, 901234, 567890, 123456, 1234567, 8901234, 5678901, 2345678, 9012345, 6789012, 3456789, 12345678, 90123456, 78901234, 56789012
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MAPLE
|
A078194 := proc(n, m) local istrt, iend, resul ; istrt := ( 1+m*n ) mod 10 ; iend := istrt+n-1 ; resul := istrt ; for i from istrt+1 to iend do resul := 10*resul+ (i mod 10) ; od ; RETURN(resul) ; end: for n from 1 to 10 do for m from 0 to n-1 do printf("%d, ", A078194(n, m)) ; od ; od ; # R. J. Mathar, Apr 01 2007
|
|
MATHEMATICA
|
Table[FromDigits/@Partition[PadRight[{}, n^2, Join[Range[9], {0}]], n], {n, 10}]//Flatten (* Harvey P. Dale, Apr 25 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|