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 A322669 #21 Mar 17 2019 04:09:36 %S A322669 7,17,23,41,47,59,67,73,83,103,107,109,137,151,167,179,181,193,197, %T A322669 233,239,251,257,271,281,283,313,317,349,359,379,383,409,421,431,433, %U A322669 443,449,467,491,503,523,571,587,593,599,607,613,617,643,647,659,661,677,683,733,739 %N A322669 a(n) is the least prime(k+n-1) satisfying k > 0 and prime(k+n-1) < prime(k) + prime(k+1). %H A322669 Seiichi Manyama, <a href="/A322669/b322669.txt">Table of n, a(n) for n = 3..10000</a> %t A322669 Array[Block[{k = 1, p}, While[Set[p, Prime[k + # - 1]] >= Total@ Prime@ {k, k + 1}, k++]; p] &, 57, 3] (* _Michael De Vlieger_, Jan 01 2019 *) %o A322669 (PARI) a(n) = {my(p=2, k=1); while(!(prime(k+n-1) < p+nextprime(p+1)), p = nextprime(p+1); k++); prime(k+n-1);} \\ _Michel Marcus_, Dec 23 2018 %Y A322669 Cf. A322668. %K A322669 nonn %O A322669 3,1 %A A322669 _Seiichi Manyama_, Dec 23 2018