A266509 Terms of A256263 repeated.

0, 0, 1, 1, 1, 1, 3, 3, 1, 1, 3, 3, 5, 5, 7, 7, 1, 1, 3, 3, 5, 5, 7, 7, 5, 5, 11, 11, 17, 17, 15, 15, 1, 1, 3, 3, 5, 5, 7, 7, 5, 5, 11, 11, 17, 17, 15, 15, 5, 5, 11, 11, 17, 17, 23, 23, 29, 29, 35, 35, 41, 41, 31, 31, 1, 1, 3, 3, 5, 5, 7, 7, 5, 5, 11, 11, 17, 17, 15, 15, 5, 5, 11, 11, 17, 17, 23, 23, 29, 29

Offset: 1

Author

Omar E. Pol, Jan 02 2016

Keywords

• nonn
• tabf

Comments

First differs from A266529 at a(55), with which it shares infinitely many terms.

First differs from A266539 at a(25), with which it shares infinitely many terms.

For an illustration of initial terms consider the diagram of A256263 in the fourth quadrant of the square grid together with a reflected copy in the second quadrant.

Examples

			Written as an irregular triangle in which the row lengths are twice the terms of A011782 the sequence begins:
0,0;
1,1;
1,1,3,3;
1,1,3,3,5,5,7,7;
1,1,3,3,5,5,7,7,5,5,11,11,17,17,15,15;
1,1,3,3,5,5,7,7,5,5,11,11,17,17,15,15,5,5,11,11,17,17,23,23,29,29,35,35,41,41,31,31;
...
Row sums give 0 together with A004171.
		

Links

• Ivan Neretin, Table of n, a(n) for n = 1..8192

Crossrefs

Partial sums give A266510.

Cf. A004171, A011782, A256263, A256264, A256265, A266529, A266539.

Programs

Mathematica

Riffle[#, #] &@ Flatten@Join[{0}, NestList[Join[#, Range[Length[#] - 1]*6 - 1, {2 #[[-1]] + 1}] &, {1}, 5]] (* Ivan Neretin, Feb 14 2017 *)