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 A071217 #8 Sep 04 2017 23:23:57 %S A071217 1,9,11,12,19,23,24,29,31,32,51,54,58,63,67,71,75,76,77,84,86,87,93, %T A071217 95,97,103,108,110,124,128,136,151,158,159,164,169,188,191,192,200, %U A071217 202,205,208,210,211,216,227,232,241,243,245,246,247,252,265,273,278,282 %N A071217 Numbers k such that the largest prime factor of the sum of successive primes p(k) + p(k+1) is greater than k. %F A071217 A071216(k) > k. %e A071217 p(9) + p(10) = 23 + 29 = 52 = 2*2*13 and 13 > 10, so index 9 is here; it is the 2nd term. %t A071217 pf[x_] := Part[Reverse[Flatten[FactorInteger[x]]], 2] Do[s=pf[Prime[n+1]+Prime[n]]; If[Greater[s, n], Print[n]], {n, 1, 1000}] %Y A071217 Cf. A001043, A006530, A071216. %K A071217 nonn %O A071217 1,2 %A A071217 _Labos Elemer_, May 17 2002