A290376 Prime Fubini numbers.

3, 13, 541, 47293, 7087261, 526858348381

Offset

1,1

Comments

Corresponding indices are 2, 3, 5, 7, 9, 13, ... with no more up to 12000.

Links

Table of n, a(n) for n=1..6.

Mathematica

a[0] = 1; a[n_] := a[n] = Sum[Binomial[n, k]*a[n - k], {k, 1, n}]; Select[a@# & /@ Range@ 20, PrimeQ@# &]

Prog

(PARI) lista(nn) = for (n=1, nn, if (isprime(fn=sum(k=1, n, k!*stirling(n, k, 2))), print1(fn, ", ")); ); \\ Michel Marcus, Aug 02 2017

Crossrefs

Cf. A000670.

Sequence in context: A092845 A216474 A222762 * A089711 A374173 A173759

Adjacent sequences: A290373 A290374 A290375 * A290377 A290378 A290379

Keyword

nonn,more

Author

Amiram Eldar, Jul 28 2017

Status

approved