A385538 First differences of A184859.

1, 2, 6, 2, 6, 4, 6, 2, 6, 10, 6, 8, 10, 2, 6, 4, 6, 8, 10, 6, 18, 8, 10, 8, 6, 4, 6, 8, 10, 2, 4, 2, 24, 4, 6, 6, 2, 10, 6, 12, 8, 6, 10, 14, 4, 6, 20, 12, 4, 6, 8, 12, 4, 18, 8, 10, 2, 22, 18, 2, 16, 8, 16, 18, 2, 24, 10, 6, 8, 16, 12, 8, 6, 18, 10, 6, 12, 14

Offset: 1

Author

Guido Heinig, Jul 02 2025

Keywords

• nonn
• easy

Crossrefs

Cf. A001622, A007067, A184859.

Programs

Mathematica

Differences[Select[Floor[Range[420]*GoldenRatio + 1/2], PrimeQ]] (* Amiram Eldar, Jul 10 2025 *)

PARI

lista(nn) = my(v=select(isprime,vector(nn, k, round(k*quadgen(5))))); vector(#v-1, k, v[k+1]-v[k]) \\ Michel Marcus, Jul 08 2025

Formula

a(n) = A184859(n+1) - A184859(n).