Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A131637
a(n) = Phi(Bell(n)).
1
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
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
KEYWORD
nonn
AUTHOR
Zerinvary Lajos, Oct 02 2007
EXTENSIONS
a(24)-a(25) from Amiram Eldar, Nov 23 2019
STATUS
approved