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 A091624 #8 Jan 04 2019 18:57:22
%S A091624 3,17,47,61,71,107,283,881,1151,1913,2591,3527,4049,4093,6047,7193,
%T A091624 7433,10973,15137,20807,21617,24197,26903,28793,34847,37039,46817,
%U A091624 53129,56443,69191,74489,83231,84047,98563,103049,103967,109507,110441,112337
%N A091624 Lesser of consecutive primes whose sum is a perfect power (A001597).
%H A091624 Hans Havermann, <a href="/A091624/b091624.txt">Table of n, a(n) for n = 1..10000</a>
%t A091624 NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; PrimeExponents[n_] := Flatten[ Table[ #[[2]], {1}] & /@ FactorInteger[n]]; p = q = 2; l = {}; Do[q = NextPrim[p]; If[ Apply[ GCD, PrimeExponents[p + q]] > 1, AppendTo[l, p]]; p = q, {n, 2, 13000}]
%Y A091624 Cf. A071087.
%Y A091624 Cf. A061275.
%K A091624 nonn
%O A091624 1,1
%A A091624 _Robert G. Wilson v_, Jan 24 2004