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.

A071216 a(n) is the largest prime factor of prime(n) + prime(n+1).

This page as a plain text file.
%I A071216 #21 Aug 29 2019 05:05:34
%S A071216 5,2,3,3,3,5,3,7,13,5,17,13,7,5,5,7,5,2,23,3,19,3,43,31,11,17,7,3,37,
%T A071216 5,43,67,23,3,5,11,5,11,17,11,5,31,3,13,11,41,31,5,19,11,59,5,41,127,
%U A071216 13,19,5,137,31,47,3,5,103,13,7,3,167,19,29,13,89,11,37,47,127,193,131,19
%N A071216 a(n) is the largest prime factor of prime(n) + prime(n+1).
%H A071216 Amiram Eldar, <a href="/A071216/b071216.txt">Table of n, a(n) for n = 1..10000</a>
%F A071216 a(n) = A006530(A001043(n)).
%t A071216 pf[x_] := Part[Reverse[Flatten[FactorInteger[x]]],2]; Table[pf[Prime[w+1]+Prime[w]], {w,1,128}]
%o A071216 (PARI) a(n) = vecmax(factor(prime(n)+prime(n+1))[,1]); \\ _Michel Marcus_, Aug 29 2019
%Y A071216 Cf. A006530, A001043, A071215.
%K A071216 easy,nonn
%O A071216 1,1
%A A071216 _Labos Elemer_, May 17 2002