A131637 a(n) = Phi(Bell(n)).

1, 1, 1, 4, 8, 24, 168, 876, 1056, 11232, 92760, 180944, 4010832, 27644436, 93648672, 1101958000, 10436655840, 27621623160, 584607107256, 5792507548200, 21804094801440, 316556065451520, 2811301938708480, 21826781430144768, 297303503947693536, 4153310734233341952

Offset

0,4

Links

Amiram Eldar, Table of n, a(n) for n = 0..104

Maple

with(numtheory):with(combinat):a:=n->phi(bell(n)): seq(a(n), n=0..25);

Mathematica

Table[EulerPhi[BellB[n]], {n, 0, 25}] (* Amiram Eldar, Nov 23 2019 *)

Crossrefs

Sequence in context: A052578 A066631 A090896 * A163143 A154586 A371190

Adjacent sequences: A131634 A131635 A131636 * A131638 A131639 A131640

Keyword

nonn

Author

Zerinvary Lajos, Oct 02 2007

Extensions

a(24)-a(25) from Amiram Eldar, Nov 23 2019

Status

approved