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 A146351 #12 Mar 30 2020 05:36:27
%S A146351 19,59,107,131,499,659,1627,1907,2251,2467,3803,4139,4283,5827,6779,
%T A146351 9539,10067,11491,12619,13763,16987,18587,18803,19507,22003,23003,
%U A146351 23819,24859,28643,30859,37507,40939,42083,42299,43403,43867,44563,52747,53507,55339
%N A146351 Primes p such that continued fraction of (1 + sqrt(p))/2 has period 6: primes in A146331.
%H A146351 Amiram Eldar, <a href="/A146351/b146351.txt">Table of n, a(n) for n = 1..1000</a>
%p A146351 A146326 := proc(n) if not issqr(n) then numtheory[cfrac]( (1+sqrt(n))/2, 'periodic','quotients') ; nops(%[2]) ; else 0 ; fi; end: isA146351 := proc(n) RETURN(isprime(n) and A146326(n) = 6) ; end: for n from 2 to 13000 do if isA146351(n) then printf("%d,\n",n) ; fi; od: # _R. J. Mathar_, Sep 06 2009
%t A146351 Select[Prime[Range[10000]],Length[ContinuedFraction[(1+Sqrt[#])/2][[2]]] == 6&] (* _Harvey P. Dale_, Dec 22 2013 *)
%Y A146351 Cf. A000290, A078370, A146326-A146345, A146348-A146360.
%K A146351 nonn
%O A146351 1,1
%A A146351 _Artur Jasinski_, Oct 30 2008
%E A146351 797 removed by _R. J. Mathar_, Sep 06 2009
%E A146351 More terms from _Harvey P. Dale_, Dec 22 2013