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 A110588 #6 Aug 06 2013 09:07:44 %S A110588 9,25,49,121,169,361,529,841,961,1369,1681,2209,4489,5329,6241,9409, %T A110588 10201,10609,11881,22801,24649,38809,44521,51529,54289,57121,66049, %U A110588 69169,85849,94249,109561,113569,121801,124609 %N A110588 Squares of the form 2*p+3 that are squares of primes. %H A110588 Charles R Greathouse IV, <a href="/A110588/b110588.txt">Table of n, a(n) for n = 1..10000</a> %p A110588 ispower := proc(n,b) andmap(proc(w) evalb(w[2] mod b = 0) end, ifactors(n)[2]) end: a:=2: PW||a:=[]; for z from 1 to 1 do for n from 1 to 1000 do p:=ithprime(n); m:=a*p+a+1; if ispower(m,2) and isprime(sqrt(m)) then PW||a:=[op(PW||a),m] fi od; od; PW||a; %o A110588 (PARI) isok(n) = issquare(n) && isprime(sqrtint(n)) && (type(p=(n-3)/2) == "t_INT") && isprime(p) \\ _Michel Marcus_, Aug 06 2013 %o A110588 (PARI) v=List();forprime(p=2,1e4,if(isprime(p^2\2-1),listput(v,p^2))); Vec(v) \\ _Charles R Greathouse IV_, Aug 06 2013 %Y A110588 Cf. A098828, A109358. %K A110588 nonn %O A110588 1,1 %A A110588 _Walter Kehowski_, Sep 13 2005 %E A110588 More terms from _Michel Marcus_, Aug 06 2013