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 A358548 #37 Aug 10 2025 07:09:01
%S A358548 3,6,6,6,6,12,6,6,6,12,12,6,12,6,6,18,6,12,18,6,6,12,6,30,6,6,12,6,6,
%T A358548 6,12,12,18,6,30,6,6,24,6,12,18,12,12,6,12,6,12,12,12,6,12,36,6,6,18,
%U A358548 6,6,18,24,6,6,6,18,6,18,18,24,18,12,24,12,12,6,12,18,6,18,6,24
%N A358548 a(n) = A003627(n+1) - A003627(n).
%C A358548 Sequence of differences between consecutive primes of the form 3n-1, which is the sequence A003627.
%C A358548 For n > 1, this is the sequence of first differences of A007528. The longest run of 6's will have length 4 (corresponding to 5, 11, 17, 23, 29 in A007528). Since no other prime ends in 5, thereafter, a run of 6's cannot exceed length 3 (e.g., 41, 47, 53, 59 in A007528). Similarly, a run of 12's cannot exceed length 3 (e.g., 467, 479, 491, 503 in A007528), a run of 18's cannot exceed length 3 (e.g., 2843, 2861, 2879, 2897 in A007528), and a run of 24's cannot exceed length 3 (e.g., 154619, 154643, 154667, 154691 in A007528). This run limit of length 3 also extends to other multiples of 6 that are not divisible by 5. - _Timothy L. Tiffin_, Dec 22 2022
%C A358548 For multiples of 6 that are divisible by 5, the length of the longest run does not appear to be bounded. For example, if k, k+30, k+60, k+90, ..., k+30(k-1) = 31k-30 are k consecutive primes in A002476, then this will produce a run of k-1 30's in this sequence. - _Timothy L. Tiffin_, Jan 06 2023
%H A358548 Harvey P. Dale, <a href="/A358548/b358548.txt">Table of n, a(n) for n = 1..1000</a>
%e A358548 For n=3, a(3) = A003627(4) - A003627(3) = 17 - 11 = 6.
%t A358548 A007528 := Select[6 Range[200] - 1, PrimeQ]; m := Table[A007528[[n+1]] - A007528[[n]], {n, 1, Length[A007528]-1}]; PrependTo[m, 3] (* _Timothy L. Tiffin_, Jan 05 2023 *)
%t A358548 Differences[Select[Prime[Range[200]],Mod[#,3]==2&]] (* _Harvey P. Dale_, Jan 31 2023 *)
%o A358548 (Python)
%o A358548 from itertools import islice
%o A358548 from sympy import isprime
%o A358548 def A358548_gen(): # generator of terms
%o A358548 p, q = 2, 5
%o A358548 while True:
%o A358548 while not isprime(q):
%o A358548 q += 3
%o A358548 yield q-p
%o A358548 p = q
%o A358548 q += 3
%o A358548 A358548_list = list(islice(A358548_gen(),30)) # _Chai Wah Wu_, Jan 05 2023
%Y A358548 Cf. A003627, A359257.
%K A358548 nonn,easy
%O A358548 1,1
%A A358548 _Jordan Gunter_, Nov 19 2022