A014735 Squares of odd numbers in triangle of Eulerian numbers that are not 1.
121, 121, 3249, 3249, 1418481, 1418481, 61009, 18429849, 243953161, 243953161, 18429849, 61009, 1026169, 1026169, 23298053769, 23298053769, 16670889, 228743149441, 103788925659225, 103788925659225, 228743149441
Offset: 1
Programs
-
Mathematica
A014735 = Select[Select[Flatten[Table[Plus @@ Table[(-1)^k*Binomial[i + 1, k]*(j - k)^i, {k, 0, j}], {i, 1, 15}, {j, 1, i}]], OddQ], # != 1 &]^2 (* Keith Schneider, Jul 03 2007 *)
Formula
a(n) = A014461(n)^2. - Sean A. Irvine, Nov 18 2018
Extensions
More terms from Keith Schneider, Jul 03 2007