|
| |
|
|
A014735
|
|
Squares of odd numbers in triangle of Eulerian numbers that are not 1.
|
|
2
| |
|
|
121, 121, 3249, 3249, 1418481, 1418481, 61009, 18429849, 243953161, 243953161, 18429849, 61009, 1026169, 1026169, 23298053769, 23298053769, 16670889, 228743149441, 103788925659225, 103788925659225, 228743149441
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
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
|
|
|
CROSSREFS
| Sequence in context: A109838 A014734 A137517 * A137850 A036231 A055468
Adjacent sequences: A014732 A014733 A014734 * A014736 A014737 A014738
|
|
|
KEYWORD
| nonn,easy
|
|
|
AUTHOR
| Mohammad K. Azarian (ma3(AT)evansville.edu)
|
|
|
EXTENSIONS
| More terms and Mathematica program from Keith Schneider, Jul 03 2007
|
| |
|
|
