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 A100663 #17 Jun 28 2024 12:12:20
%S A100663 9,15,85,133,225,1233,12793,108889
%N A100663 Composite q such that 4^q + q is prime.
%t A100663 For[n = 1, n < 5000, n++, If[Not[PrimeQ[n]], If[PrimeQ[4^n + n], Print[n]]]] (Steinerberger)
%t A100663 Select[Range[2,10000],!PrimeQ[#]&&PrimeQ[4^#+#]&] (* _Harvey P. Dale_, Mar 09 2014 *)
%o A100663 (PARI) \\ p^q + q is prime q not prime
%o A100663 ptoqpq(p,n)= { local(x,y,q); for(q=6,n, if(q%2, if(!isprime(q), y=p^q+q; if(ispseudoprime(y),print1(q",")) ) ) ) }
%Y A100663 Composites in A057909.
%K A100663 nonn,more
%O A100663 1,1
%A A100663 _Cino Hilliard_, Jan 12 2005
%E A100663 a(6) from _Stefan Steinerberger_, Jan 27 2006
%E A100663 a(7)-a(8) using A057909 from _Michael S. Branicky_, Jun 28 2024