This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A385538 #32 Jul 14 2025 20:10:31 %S A385538 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, %T A385538 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, %U A385538 2,16,8,16,18,2,24,10,6,8,16,12,8,6,18,10,6,12,14 %N A385538 First differences of A184859. %F A385538 a(n) = A184859(n+1) - A184859(n). %t A385538 Differences[Select[Floor[Range[420]*GoldenRatio + 1/2], PrimeQ]] (* _Amiram Eldar_, Jul 10 2025 *) %o A385538 (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 %Y A385538 Cf. A001622, A007067, A184859. %K A385538 nonn,easy %O A385538 1,2 %A A385538 _Guido Heinig_, Jul 02 2025