A335186 a(n) = nextprime(ceiling(n/2)-1) + prevprime(floor(n/2)+1), where nextprime = A151800 and prevprime = A151799.
4, 5, 6, 8, 8, 8, 10, 12, 12, 12, 14, 18, 18, 18, 18, 18, 18, 18, 22, 24, 24, 24, 26, 30, 30, 30, 30, 30, 30, 30, 34, 36, 36, 36, 38, 42, 42, 42, 42, 42, 42, 42, 46, 52, 52, 52, 52, 52, 52, 52, 52, 52, 52, 52, 58, 60, 60, 60, 62, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 74
Offset: 4
Examples
a(5) = 5; n=5 has 2 partitions into two parts: (4,1) and (3,2). Among the largest parts, the smallest prime is 3. Among the smallest parts, 2 is the largest. So a(5) = 3 + 2 = 5. a(6) = 6; n=6 has 3 partitions into two parts: (5,1), (4,2) and (3,3). Among the largest parts, the smallest prime is 3. Among the smallest parts, the largest prime is 3. So a(6) = 3 + 3 = 6. a(7) = 8; n=7 has 3 partitions into two parts: (6,1), (5,2) and (4,3). Among the largest parts, 5 is the smallest. Among the smallest parts, 3 is the largest. So a(7) = 5 + 3 = 8.
Programs
-
Magma
[NextPrime(Ceiling(n/2)-1) + PreviousPrime(Floor(n/2)+1) : n in [4..100]];
-
Mathematica
Table[NextPrime[Ceiling[n/2] - 1, 1] + NextPrime[Floor[n/2] + 1, -1], {n, 4, 100}]
Comments