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
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
Comments