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 A078955 #24 Feb 21 2025 06:21:40 %S A078955 19,1279,1609,2539,3529,4639,5839,15259,19069,32359,71329,75979,88789, %T A078955 97369,112909,113149,130639,135589,138559,191449,229759,246919,290659, %U A078955 312199,346429,349369,357649,384469,396619,416389,418339,421699,433249,435559,450799,460969 %N A078955 Primes p such that the differences between the 5 consecutive primes starting with p are (4,6,2,6). %C A078955 Equivalently, primes p such that p, p+4, p+10, p+12 and p+18 are consecutive primes. %H A078955 Amiram Eldar, <a href="/A078955/b078955.txt">Table of n, a(n) for n = 1..10000</a> %F A078955 a(n) == 19 (mod 30). - _Amiram Eldar_, Feb 21 2025 %e A078955 19 is in the sequence since 19, 23 = 19 + 4, 29 = 19 + 10, 31 = 19 + 12 and 37 = 19 + 18 are consecutive primes. %t A078955 Transpose[Select[Partition[Prime[Range[40000]],5,1],Differences[#]=={4,6,2,6}&]][[1]] (* _Harvey P. Dale_, Feb 03 2011 *) %o A078955 (PARI) list(lim) = {my(p1 = 2, p2 = 3, p3 = 5, p4 = 7); forprime(p5 = 11, lim, if(p2 - p1 == 4 && p3 - p2 == 6 && p4 - p3 == 2 && p5 - p4 == 6, print1(p1, ", ")); p1 = p2; p2 = p3; p3 = p4; p4 = p5);} \\ _Amiram Eldar_, Feb 21 2025 %Y A078955 Subsequence of A078851. - _R. J. Mathar_, May 06 2017 %Y A078955 Cf. A001223, A078866, A078867, A078946-A078969, A022006, A022007. %K A078955 nonn %O A078955 1,1 %A A078955 _Labos Elemer_, Dec 19 2002 %E A078955 Edited by _Dean Hickerson_, Dec 20 2002