A329661 BII-number of the set-system whose MM-number is A329629(n).
0, 1, 2, 8, 4, 3, 128, 16, 32768, 9, 5, 2147483648, 256, 32, 129, 10, 9223372036854775808, 6, 170141183460469231731687303715884105728, 512, 65536, 57896044618658097711785492504343953926634992332820282019728792003956564819968, 130, 17, 32769, 4294967296
Offset: 1
Keywords
Examples
The sequence of all set-systems together with their MM-numbers and BII-numbers begins: {}: 1 ~ 0 {{1}}: 3 ~ 1 {{2}}: 5 ~ 2 {{3}}: 11 ~ 8 {{1,2}}: 13 ~ 4 {{1},{2}}: 15 ~ 3 {{4}}: 17 ~ 128 {{1,3}}: 29 ~ 16 {{5}}: 31 ~ 32768 {{1},{3}}: 33 ~ 9 {{1},{1,2}}: 39 ~ 5 {{6}}: 41 ~ 2147483648 {{1,4}}: 43 ~ 256 {{2,3}}: 47 ~ 32 {{1},{4}}: 51 ~ 129 {{2},{3}}: 55 ~ 10 {{7}}: 59 ~ 9223372036854775808 {{2},{1,2}}: 65 ~ 6 {{8}}: 67 ~ 170141183460469231731687303715884105728 {{2,4}}: 73 ~ 512
Crossrefs
Programs
-
Mathematica
fbi[q_]:=If[q=={},0,Total[2^q]/2]; primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]; das=Select[Range[100],OddQ[#]&&SquareFreeQ[#]&&And@@SquareFreeQ/@primeMS[#]&]; Table[fbi[fbi/@primeMS/@primeMS[n]],{n,das}]
Comments