A349972 - OEIS

%I #14 Apr 30 2022 20:10:29

%S 0,1,2,3,2,8,10,25,49,93,187,377,747,1472,2975,5911,11880,23734,47474,

%T 94885,190623,380805,763402,1528095,3061916,6125358,12278446,24564954,

%U 49200792,98478615,197164774,394536002,789993459,1580640910,3163602123,6330608624,12668987317

%N a(n) = A349976(n, n-1) for n >= 1 and a(0) = 0.

%H Fausto A. C. Cariboni, <a href="/A349972/b349972.txt">Table of n, a(n) for n = 0..47</a>

%o (SageMath) # Uses function DistsetLength from A349976.

%o from collections import Counter

%o def A349972(n): return Counter([DistsetLength(s) for s in Subsets(n)])[n-1]

%o print([A349972(n) for n in range(10)])

%Y Cf. A349976.

%K nonn

%O 0,3

%A _Peter Luschny_, Dec 12 2021