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 A111210 #17 Jun 07 2025 04:11:45
%S A111210 3,7,17,37,79,163,183251937907,96076792050570491,
%T A111210 27043212804868893898596335047829,
%U A111210 1772303994379887830538409413707125877,510831846955296286119449009050103061206246374061200369
%N A111210 Primes of the form (2^k - prime(k))/3.
%C A111210 Corresponding k's are 4, 5, 6, 7, 8, 9, 39, 58, 106, 122, 180, 309, 357, 696, ... - _Michel Marcus_, Jul 04 2021
%t A111210 a = Flatten[Table[If[PrimeQ[(2^n - Prime[n])/3] == True, (2^n - Prime[n])/3, {}], {n, 1, 100}]]
%t A111210 Table[ If[PrimeQ[(2^n - Prime[n])/3], (2^n - Prime[n])/3, {}], {n, 1, 200}]//Flatten (* _Robert G. Wilson v_, Oct 31 2005 *)
%Y A111210 Cf. A111209.
%K A111210 nonn
%O A111210 1,1
%A A111210 _Roger L. Bagula_, Oct 25 2005
%E A111210 a(9)-a(11) from _Robert G. Wilson v_, Oct 31 2005
%E A111210 Edited by _N. J. A. Sloane_, Nov 19 2005