|
%I #18 Nov 19 2018 02:34:30
%S 121,121,3249,3249,1418481,1418481,61009,18429849,243953161,243953161,
%T 18429849,61009,1026169,1026169,23298053769,23298053769,16670889,
%U 228743149441,103788925659225,103788925659225,228743149441
%N Squares of odd numbers in triangle of Eulerian numbers that are not 1.
%F a(n) = A014461(n)^2. - _Sean A. Irvine_, Nov 18 2018
%t 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 *)
%Y Cf. A008292, A014461.
%K nonn,easy
%O 1,1
%A _Mohammad K. Azarian_
%E More terms from Keith Schneider, Jul 03 2007
|
