A308046 a(n) = 2*nextprime(n - 1) - 2*n, where nextprime(n) is the smallest prime > n.

2, 0, 0, 2, 0, 2, 0, 6, 4, 2, 0, 2, 0, 6, 4, 2, 0, 2, 0, 6, 4, 2, 0, 10, 8, 6, 4, 2, 0, 2, 0, 10, 8, 6, 4, 2, 0, 6, 4, 2, 0, 2, 0, 6, 4, 2, 0, 10, 8, 6, 4, 2, 0, 10, 8, 6, 4, 2, 0, 2, 0, 10, 8, 6, 4, 2, 0, 6, 4, 2, 0, 2, 0, 10, 8, 6, 4, 2, 0, 6, 4, 2, 0, 10

Offset

1,1

Comments

For n > 1, a(n) is the difference of the larger and smaller part of the single partition of 2n into two parts whose larger part is the smallest prime > n - 1.

Links

Table of n, a(n) for n=1..84.

Index entries for sequences related to partitions

Formula

a(n) = 2*A151800(n - 1) - 2*n.

Example

a(9) = 4; the smallest prime > 8 is 11, 2*9-11 = 7 and 11-7 = 4.

Mathematica

Table[2 NextPrime[n - 1, 1] - 2 n, {n, 100}]

Crossrefs

Cf. A151800.

Sequence in context: A339441 A226914 A110036 * A289323 A086937 A213024

Adjacent sequences: A308043 A308044 A308045 * A308047 A308048 A308049

Keyword

nonn

Author

Wesley Ivan Hurt, May 10 2019

Status

approved