A046559 Distinct even numbers in the numerators of the 1/3-Pascal triangle (by row).

4, 8, 10, 16, 38, 18, 110, 22, 220, 350, 406, 28, 40, 190, 252, 148, 442, 504, 34, 440, 946, 254, 1892, 250, 5434, 2860, 290, 3640, 14014, 7150, 46, 616, 6380, 16604, 11284, 55432, 74074, 27170, 52, 428, 8228, 22984, 50456, 89284, 129506, 155584

Offset

1,1

Links

Peter J. C. Moses, Table of n, a(n) for n = 1..10000

Example

1/1; -->
1/1 1/1; -->
1/1 1/3 1/1; -->
1/1 4/3 4/3 1/1; --> 4
1/1 7/3 8/3 7/3 1/1; --> 8
1/1 10/3 5/1 5/1 10/3 1/1; --> ...
1/1 13/3 25/3 10/1 25/3 13/3 1/1;
1/1 16/3 38/3 55/3 55/3 38/3 16/3 1/1; ...

Mathematica

thirdPascal[1]={1}; thirdPascal[2]={1, 1}; thirdPascal[3]={1, 1/3, 1}; thirdPascal[n_] := thirdPascal[n] = Join[{1}, Map[Total, Partition[thirdPascal[n-1], 2, 1]], {1}]; DeleteDuplicates[Flatten[Table[Select[Numerator[thirdPascal[n]], EvenQ], {n, 20}]]]

Crossrefs

Cf. A046534.

Sequence in context: A311006 A311007 A232168 * A032618 A311008 A311009

Adjacent sequences: A046556 A046557 A046558 * A046560 A046561 A046562

Keyword

tabf,nonn,look,less

Author

Mohammad K. Azarian

Extensions

Terms a(12) and beyond from b-file by Andrew Howroyd, Feb 05 2018

Status

approved