The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A191703 Dispersion of A016861, (5k+1), by antidiagonals. 10
 1, 6, 2, 31, 11, 3, 156, 56, 16, 4, 781, 281, 81, 21, 5, 3906, 1406, 406, 106, 26, 7, 19531, 7031, 2031, 531, 131, 36, 8, 97656, 35156, 10156, 2656, 656, 181, 41, 9, 488281, 175781, 50781, 13281, 3281, 906, 206, 46, 10, 2441406, 878906, 253906, 66406, 16406 (list; table; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS For a background discussion of dispersions and their fractal sequences, see A191426. For dispersions of congruence sequences mod 3 or mod 4, see A191655, A191663, A191667. ... Each of the sequences (5n, n>1), (5n+1, n>1), (5n+2, n>=0), (5n+3, n>=0), (5n+4, n>=0), generates a dispersion. Each complement (beginning with its first term >1) also generates a dispersion. The ten sequences and dispersions are listed here: ... A191702=dispersion of A008587 (5k, k>=1) A191703=dispersion of A016861 (5k+1, k>=1) A191704=dispersion of A016873 (5k+2, k>=0) A191705=dispersion of A016885 (5k+3, k>=0) A191706=dispersion of A016897 (5k+4, k>=0) A191707=dispersion of A047201 (1, 2, 3, 4 mod 5 and >1) A191708=dispersion of A047202 (0, 2, 3, 4 mod 5 and >1) A191709=dispersion of A047207 (0, 1, 3, 4 mod 5 and >1) A191710=dispersion of A032763 (0, 1, 2, 4 mod 5 and >1) A191711=dispersion of A001068 (0, 1, 2, 3 mod 5 and >1) ... EXCEPT for at most 2 initial terms (so that column 1 always starts with 1): A191702 has 1st col A047201, all else A008587 A191703 has 1st col A047202, all else A016861 A191704 has 1st col A047207, all else A016873 A191705 has 1st col A032763, all else A016885 A191706 has 1st col A001068, all else A016897 A191707 has 1st col A008587, all else A047201 A191708 has 1st col A042968, all else A047203 A191709 has 1st col A042968, all else A047207 A191710 has 1st col A042968, all else A032763 A191711 has 1st col A042968, all else A001068 ... Regarding the dispersions A191670-A191673, there is a formula for sequences of the type "(a or b or c or d mod m)", (as in the relevant Mathematica programs): ... If f(n)=(n mod 3), then (a,b,c,d,a,b,c,d,a,b,c,d,...) is given by a*f(n+3)+b*f(n+2)+c*f(n+1)+d*f(n); so that for n>=1, "(a, b, c, d mod m)" is given by a*f(n+3)+b*f(n+2)+c*f(n+1)+d*f(n)+m*floor((n-1)/4)). LINKS Ivan Neretin, Table of n, a(n) for n = 1..5050 (first 100 antidiagonals, flattened) EXAMPLE Northwest corner: 1...6... 31....156...781 2...11...56....281...1406 3...16...81....406...2031 4...21...106...531...2656 5...26...131...656...3281 7...36...181...906...4531 MATHEMATICA (* Program generates the dispersion array T of the increasing sequence f[n] *) r = 40; r1 = 12;  c = 40; c1 = 12; f[n_] := 5n+1 Table[f[n], {n, 1, 30}]  (* A016861 *) mex[list_] := NestWhile[#1 + 1 &, 1, Union[list][[#1]] <= #1 &, 1, Length[Union[list]]] rows = {NestList[f, 1, c]}; Do[rows = Append[rows, NestList[f, mex[Flatten[rows]], r]], {r}]; t[i_, j_] := rows[[i, j]]; TableForm[Table[t[i, j], {i, 1, 10}, {j, 1, 10}]] (* A191703 *) Flatten[Table[t[k, n - k + 1], {n, 1, c1}, {k, 1, n}]] (* A191703 *) CROSSREFS Cf. A047202, A016861, A191708, A191426. Sequence in context: A176965 A084249 A176591 * A096039 A201229 A038256 Adjacent sequences:  A191700 A191701 A191702 * A191704 A191705 A191706 KEYWORD nonn,tabl AUTHOR Clark Kimberling, Jun 12 2011 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified January 22 16:25 EST 2020. Contains 331152 sequences. (Running on oeis4.)