login
A046559
Distinct even numbers in the numerators of the 1/3-Pascal triangle (by row).
1
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
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
KEYWORD
tabf,nonn,look,less
EXTENSIONS
Terms a(12) and beyond from b-file by Andrew Howroyd, Feb 05 2018
STATUS
approved