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 A174010 #10 Feb 11 2019 22:00:56
%S A174010 2,3,3,5,13,17,29,31,31,37,41,47,53,67,71,71,79,79,83,89,97,97,107,
%T A174010 107,127,131,151,181,197,211,229,241,257,257,269,271,281,283,283,311,
%U A174010 353,373,389,401,409,409,419,419,431,449,463,479,491,499,547,563,577,577
%N A174010 Primes p of the form p = A000040(k) - A163300(k) for some k (includes duplicates).
%C A174010 Primes of form k-th prime minus k-th even nonnegative nonprime.
%C A174010 Essentially the same as A144419.
%e A174010 a(1)=2 because 2-0=2; a(2)=3 because 17-14=3; a(3)=3 because 19-16=3; a(4)=5 because 23-18=5; a(5)=13 because 37-24=13.
%p A174010 A163300 := proc(n) if n <= 2 then op(n,[0,4]) ; else for a from procname(n-1)+2 by 2 do if not isprime(a) then return a; end if; end do; end if; end proc:
%p A174010 for n from 1 to 400 do p := ithprime(n) -A163300(n) ; if isprime(p) then printf("%d,",p) ; end if; end do: # _R. J. Mathar_, May 02 2010
%Y A174010 Cf. A144419, A001477, A078916, A163300, A174008.
%K A174010 nonn,less
%O A174010 1,1
%A A174010 _Juri-Stepan Gerasimov_, Mar 05 2010
%E A174010 Corrected (83 inserted) by _R. J. Mathar_, May 02 2010