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 A146358 #18 Mar 05 2023 11:36:16 %S A146358 421,757,1021,1097,1117,1301,1553,1973,2069,2237,2273,2789,2861,3373, %T A146358 3461,3517,3877,3917,4133,4397,4481,5521,5573,5717,6221,6317,6637, %U A146358 6997,7253,7517,8741,9049,9173,9437,10181,10949,11597,11789,12497,15473,15797,16141,18353 %N A146358 Primes p such that continued fraction of (1 + sqrt(p))/2 has period 13: primes in A333640. %H A146358 Amiram Eldar, <a href="/A146358/b146358.txt">Table of n, a(n) for n = 1..2000</a> %t A146358 Select[Range[2*10^4], PrimeQ[#] && Length[ContinuedFraction[(1+Sqrt[#])/2][[2]]] == 13 &] (* _Amiram Eldar_, Mar 30 2020 *) %t A146358 Select[Prime[Range[2500]],Length[ContinuedFraction[(1+Sqrt[#])/2][[2]]]==13&] (* _Harvey P. Dale_, Mar 05 2023 *) %Y A146358 Cf. A000290, A050950-A050969, A078370, A146326-A146345, A333640, A146348-A146360. %K A146358 nonn %O A146358 1,1 %A A146358 _Artur Jasinski_, Oct 30 2008 %E A146358 Definition corrected, 3 terms added. - _R. J. Mathar_, Nov 08 2008 %E A146358 More terms from _Amiram Eldar_, Mar 30 2020