OFFSET
1,2
COMMENTS
Also Heinz numbers of integer partitions with no adjacent parts having quotient > 2 (counted by A342094). The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), giving a bijective correspondence between positive integers and integer partitions.
EXAMPLE
The sequence of terms together with their prime indices begins:
1: {} 18: {1,2,2} 42: {1,2,4}
2: {1} 19: {8} 43: {14}
3: {2} 21: {2,4} 45: {2,2,3}
4: {1,1} 23: {9} 47: {15}
5: {3} 24: {1,1,1,2} 48: {1,1,1,1,2}
6: {1,2} 25: {3,3} 49: {4,4}
7: {4} 27: {2,2,2} 53: {16}
8: {1,1,1} 29: {10} 54: {1,2,2,2}
9: {2,2} 30: {1,2,3} 55: {3,5}
11: {5} 31: {11} 59: {17}
12: {1,1,2} 32: {1,1,1,1,1} 60: {1,1,2,3}
13: {6} 35: {3,4} 61: {18}
15: {2,3} 36: {1,1,2,2} 63: {2,2,4}
16: {1,1,1,1} 37: {12} 64: {1,1,1,1,1,1}
17: {7} 41: {13} 65: {3,6}
MATHEMATICA
Select[Range[100], Min[Divide@@@Partition[PrimePi/@First/@FactorInteger[#], 2, 1]]>=1/2&]
CROSSREFS
The multiplicative version (squared instead of doubled) for prime factors is A253784.
These are the Heinz numbers of the partitions counted by A342094.
A003114 counts partitions with adjacent parts differing by more than 1.
A034296 counts partitions with adjacent parts differing by at most 1.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Mar 05 2021
STATUS
approved