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 A144759 #13 Feb 16 2016 05:14:38
%S A144759 2,3,13,17,23,47,137,257,521,577,727,739,1033,1153,1181,1471,2081,
%T A144759 2113,3251,4129,4253,8209,8329,8353,11597,11677,11779,11971,12503,
%U A144759 16417,17053,18433,18583,24799,26317,32801,32833,35267,35393,46703,52177,65537,66569,74257,92801,98327
%N A144759 Primes the squares of which are Fibbinary numbers (A003714).
%H A144759 Robert Israel, <a href="/A144759/b144759.txt">Table of n, a(n) for n = 1..505</a>
%e A144759 a(1)=2 since 2^2 is in A003714.
%p A144759 fibbin:= proc(n) Bits:-Xor(n,2*n) = 3*n end proc:
%p A144759 select(t -> isprime(t) and fibbin(t^2), [2,seq(i,i=3..10^5,2)]); # _Robert Israel_, Feb 15 2016
%o A144759 (PARI) msb(n)=my(k=1); while(k<=n, k<<=1); k>>1;
%o A144759 lista(nn) = {forprime(p=1, nn, n=p^2; k=bitand(n, n<<1); if(k, n=bitor(n, msb(k)-1), print1(p, ", ")););} \\ _Michel Marcus_, Feb 15 2016
%Y A144759 Cf. A003714, A001248.
%K A144759 nonn,base
%O A144759 1,1
%A A144759 _Vladimir Shevelev_, Sep 20 2008
%E A144759 More terms from _Michel Marcus_, Feb 15 2016