login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A191703 Dispersion of A016861, (5k+1), by antidiagonals. 10

%I #10 Oct 18 2017 16:48:49

%S 1,6,2,31,11,3,156,56,16,4,781,281,81,21,5,3906,1406,406,106,26,7,

%T 19531,7031,2031,531,131,36,8,97656,35156,10156,2656,656,181,41,9,

%U 488281,175781,50781,13281,3281,906,206,46,10,2441406,878906,253906,66406,16406

%N Dispersion of A016861, (5k+1), by antidiagonals.

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

%C ...

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

%C ...

%C A191702=dispersion of A008587 (5k, k>=1)

%C A191703=dispersion of A016861 (5k+1, k>=1)

%C A191704=dispersion of A016873 (5k+2, k>=0)

%C A191705=dispersion of A016885 (5k+3, k>=0)

%C A191706=dispersion of A016897 (5k+4, k>=0)

%C A191707=dispersion of A047201 (1, 2, 3, 4 mod 5 and >1)

%C A191708=dispersion of A047202 (0, 2, 3, 4 mod 5 and >1)

%C A191709=dispersion of A047207 (0, 1, 3, 4 mod 5 and >1)

%C A191710=dispersion of A032763 (0, 1, 2, 4 mod 5 and >1)

%C A191711=dispersion of A001068 (0, 1, 2, 3 mod 5 and >1)

%C ...

%C EXCEPT for at most 2 initial terms (so that column 1 always starts with 1):

%C A191702 has 1st col A047201, all else A008587

%C A191703 has 1st col A047202, all else A016861

%C A191704 has 1st col A047207, all else A016873

%C A191705 has 1st col A032763, all else A016885

%C A191706 has 1st col A001068, all else A016897

%C A191707 has 1st col A008587, all else A047201

%C A191708 has 1st col A042968, all else A047203

%C A191709 has 1st col A042968, all else A047207

%C A191710 has 1st col A042968, all else A032763

%C A191711 has 1st col A042968, all else A001068

%C ...

%C 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):

%C ...

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

%C a*f(n+3)+b*f(n+2)+c*f(n+1)+d*f(n)+m*floor((n-1)/4)).

%H Ivan Neretin, <a href="/A191703/b191703.txt">Table of n, a(n) for n = 1..5050</a> (first 100 antidiagonals, flattened)

%e Northwest corner:

%e 1...6... 31....156...781

%e 2...11...56....281...1406

%e 3...16...81....406...2031

%e 4...21...106...531...2656

%e 5...26...131...656...3281

%e 7...36...181...906...4531

%t (* Program generates the dispersion array T of the increasing sequence f[n] *)

%t r = 40; r1 = 12; c = 40; c1 = 12;

%t f[n_] := 5n+1

%t Table[f[n], {n, 1, 30}] (* A016861 *)

%t mex[list_] := NestWhile[#1 + 1 &, 1, Union[list][[#1]] <= #1 &, 1, Length[Union[list]]]

%t rows = {NestList[f, 1, c]};

%t Do[rows = Append[rows, NestList[f, mex[Flatten[rows]], r]], {r}];

%t t[i_, j_] := rows[[i, j]];

%t TableForm[Table[t[i, j], {i, 1, 10}, {j, 1, 10}]] (* A191703 *)

%t Flatten[Table[t[k, n - k + 1], {n, 1, c1}, {k, 1, n}]] (* A191703 *)

%Y Cf. A047202, A016861, A191708, A191426.

%K nonn,tabl

%O 1,2

%A _Clark Kimberling_, Jun 12 2011

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 09:04 EDT 2024. Contains 371240 sequences. (Running on oeis4.)