%I #14 Mar 30 2020 05:53:45
%S 31,71,383,503,743,983,1327,2543,4271,5711,6151,8543,9871,14503,17783,
%T 21191,22031,25463,35023,35759,36263,36559,40543,46471,47711,60727,
%U 66343,72551,73751,75767,81551,83639,91463,98327,142183,159407,160343,193031,195743,218623
%N Primes p such that continued fraction of (1 + sqrt(p))/2 has period 8; primes in A146333.
%H Amiram Eldar, <a href="/A146353/b146353.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[10000]], 8 == Length[ContinuedFraction[(1 + Sqrt[#])/2][[2]]] &]
%Y Cf. A000290, A050950-A050969, A078370, A146326-A146345, A146348-A146360.
%K nonn
%O 1,1
%A _Artur Jasinski_, Oct 30 2008
%E 8467 removed - _R. J. Mathar_, Sep 06 2009
%E Extended by _T. D. Noe_, Mar 22 2011
%E More terms from _Amiram Eldar_, Mar 30 2020