cp's OEIS Frontend

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.

A333122 Numbers m such that m = prime(k) + prime(k+5) = prime(k+1) + prime(k+4) for some k.

This page as a plain text file.
%I A333122 #18 Mar 30 2020 19:49:59
%S A333122 24,30,60,84,102,210,234,288,330,378,420,426,496,528,588,594,624,690,
%T A333122 1050,1156,1200,1218,1302,1336,1410,1470,1484,1638,1650,1680,1686,
%U A333122 1716,1734,1740,1746,1788,1848,1908,1918,1930,2052,2154,2226,2364,2410,2580,2892,2934,3168,3524,4080
%N A333122 Numbers m such that m = prime(k) + prime(k+5) = prime(k+1) + prime(k+4) for some k.
%C A333122 Terms are always even because all primes used in this sequence are odd.
%C A333122 Conjecture: this sequence is infinite.
%e A333122 a(1)=24 because prime(3)+prime(8)=prime(4)+prime(7)=5+19=7+17.
%t A333122 (#[[1]] + #[[6]]) & /@ Select[ Partition[ Prime@ Range@ 320, 6, 1], #[[1]] + #[[6]] == #[[2]] + #[[5]] &] (* _Giovanni Resta_, Mar 08 2020 *)
%o A333122 (Python)
%o A333122 from sympy import nextprime
%o A333122 A333122_list, plist = [], [2,3,5,7,11,13]
%o A333122 while len(A333122_list) < 10000:
%o A333122     m = plist[0]+plist[5]
%o A333122     if m == plist[1]+plist[4]:
%o A333122         A333122_list.append(m)
%o A333122     plist = plist[1:] + [nextprime(plist[-1])] # _Chai Wah Wu_, Mar 30 2020
%Y A333122 Cf. A022889 (the prime(k) primes), A105093 (similar sequence).
%K A333122 nonn
%O A333122 1,1
%A A333122 _Marcin Barylski_, Mar 08 2020