A050315 Main diagonal of A050314.
1, 1, 1, 2, 1, 2, 2, 5, 1, 2, 2, 5, 2, 5, 5, 15, 1, 2, 2, 5, 2, 5, 5, 15, 2, 5, 5, 15, 5, 15, 15, 52, 1, 2, 2, 5, 2, 5, 5, 15, 2, 5, 5, 15, 5, 15, 15, 52, 2, 5, 5, 15, 5, 15, 15, 52, 5, 15, 15, 52, 15, 52, 52, 203, 1, 2, 2, 5, 2, 5, 5, 15, 2, 5, 5, 15, 5, 15, 15, 52, 2, 5, 5, 15, 5, 15
Offset: 0
Keywords
Links
- Alois P. Heinz, Table of n, a(n) for n = 0..16383
- Michael Gilleland, Some Self-Similar Integer Sequences
Crossrefs
Programs
-
Maple
a:= n-> combinat[bell](add(i,i=convert(n, base, 2))): seq(a(n), n=0..100); # Alois P. Heinz, Apr 08 2019
-
Mathematica
binpos[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1]; stableQ[u_,Q_]:=!Apply[Or,Outer[#1=!=#2&&Q[#1,#2]&,u,u,1],{0,1}]; Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&stableQ[#,Intersection[binpos[#1],binpos[#2]]!={}&]&]],{n,0,20}] (* Gus Wiseman, Mar 30 2019 *) a[n_] := BellB[DigitCount[n, 2, 1]]; a /@ Range[0, 100] (* Jean-François Alcover, May 21 2021 *)
Comments