(12C) Euler Numbers

[Gamo]

Compute the Nth Euler Number

The Euler numbers are 1, 5, 61, 1385, 50521, ...

Program:

Code:


01   ENTER
02      2
03      x
04   ENTER
05   ENTER
06   ENTER
07      n!
08    X<>Y
09      2
10      +
11      2
12   X<>Y
13    Y^x
14      x
15   X<>Y
16      1
17      +
18      3
19      5
20      5
21   ENTER
22      1
23      1
24      3
25      /
26   X<>Y
27    Y^x
28      /
29   FIX 0
30   GTO 00

Example:
5 [R/S] result 50521
4 [R/S] result 1385

Gamo