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 A145483 #13 Jun 09 2025 04:40:47
%S A145483 13,17,23,41,47,53,101,107,131,137,167,191,227,233,251,257,263,293,
%T A145483 311,353,383,431,443,467,503,521,557,563,587,593,641,653,761,773,797,
%U A145483 821,947,977,1013,1031,1061,1181,1187,1217,1223,1277,1283,1301,1307,1361
%N A145483 Primes p such that 2*p - 23 is prime.
%H A145483 Ivan Neretin, <a href="/A145483/b145483.txt">Table of n, a(n) for n = 1..10000</a>
%F A145483 a(n) = 2*A145477(n) - 23.
%t A145483 aa = {}; k = 23; Do[If[PrimeQ[(k + Prime[n])/2], AppendTo[aa, (k + Prime[n])/2]], {n, 1, 500}];aa
%t A145483 (* Second program: *)
%t A145483 Select[Prime@ Range@ 240, And[PrimeQ@ #, # > 0] &[2 # - 23] &] (* _Michael De Vlieger_, Jan 23 2017 *)
%Y A145483 Cf. A063908-A063913, A092109, A145471-A145490.
%K A145483 nonn
%O A145483 1,1
%A A145483 _Artur Jasinski_, Oct 11 2008