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 A075295 #13 Dec 16 2024 02:15:52
%S A075295 60,260,1220,1660,1780,3620,4460,4660,6260,6340,6980,7580,11140,13180,
%T A075295 13460,14020,14540,15380,16220,18220,19060,20180,21940,22180,23260,
%U A075295 26420,28780,29620,30980,31660,33860,35540,37220,38620,39860,40580
%N A075295 Interprimes which are of the form s*prime, s=20.
%C A075295 Interprimes of the form s*prime are in A075277-A075296 ( s = 2 - 21 ). Case s=1 is impossible.
%H A075295 Robert Israel, <a href="/A075295/b075295.txt">Table of n, a(n) for n = 1..10000</a>
%e A075295 260 is an interprime and 260/20 = 13 is prime.
%p A075295 P:= select(isprime,[seq(i,i=3..10000,2)]):
%p A075295 IP:= (P[1..-2]+P[2..-1])/~2:
%p A075295 select(t -> t mod 20 = 0 and isprime(t/20), IP); # _Robert Israel_, Dec 15 2024
%t A075295 s=20; Select[Table[(Prime[n+1]+Prime[n])/2, {n, 2, 14000}], PrimeQ[ #/s]&]
%t A075295 Select[Total[#]/2&/@Partition[Prime[Range[5000]],2,1],PrimeQ[#/20]&] (* _Harvey P. Dale_, Dec 15 2023 *)
%Y A075295 Cf. A075277-A075296.
%K A075295 easy,nonn
%O A075295 1,1
%A A075295 _Zak Seidov_, Sep 12 2002