|
|
MATHEMATICA
| A001372 = {1, 1, 3, 7, 19, 47, 130, 343, 951, 2615, 7318, 20491, 57903, 163898, 466199, 1328993, 3799624, 10884049, 31241170, 89814958, 258604642, 745568756, 2152118306, 6218869389, 17988233052, 52078309200, 150899223268, 437571896993 }; Flatten[Table[If[IntegerQ[(A001372[[n]] - 1)/2], (A001372[[n]] - 1)/2, {}], { n, 1.Length[A001372]}]]
|