A146361 Primes p such that continued fraction of (1 + sqrt(p))/2 has period 16 : primes in A146339.

191, 311, 431, 647, 1319, 1487, 2351, 5527, 9431, 19087, 21143, 24359, 27239, 29207, 32183, 34367, 36791, 38711, 41759, 42071, 43063, 43319, 49367, 58271, 58391, 59399, 62327, 65183, 66239, 77543, 82759, 84263, 87407, 90271, 93967, 94463, 97127, 100703, 101063

Offset: 1

Author

Artur Jasinski, Oct 30 2008

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A000290, A050950-A050969, A078370, A146326-A146345, A146348-A146360.

Programs

Mathematica

Select[Range[2*10^4], PrimeQ[#] && Length[ContinuedFraction[(1+Sqrt[#])/2][[2]]] == 16 &] (* Amiram Eldar, Mar 30 2020 *)
Select[Prime[Range[10000]],Length[ContinuedFraction[(1+Sqrt[#])/2][[2]]]==16&] (* Harvey P. Dale, Apr 12 2025 *)

Extensions

3391 removed - R. J. Mathar, Sep 06 2009

More terms from Amiram Eldar, Mar 30 2020