OFFSET
0,5
EXAMPLE
The a(1) = 1 through a(13) = 13 partitions (A..D = 10..13):
1 2 3 4 5 6 7 8 9 A B C D
31 32 51 43 53 54 64 65 75 76
41 52 62 72 73 74 93 85
61 71 81 82 83 A2 94
431 432 91 92 B1 A3
531 532 A1 543 B2
541 641 651 C1
731 732 643
741 652
831 751
832
931
5431
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], UnsameQ@@#&&And@@Table[#[[i-1]]/#[[i]]!=2, {i, 2, Length[#]}]&]], {n, 0, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 20 2022
STATUS
approved