A338779 a(n) is the smallest number k such that period of continued fraction for sqrt(prime(j)) equal for all prime(k) <= prime(j) < prime(k + n).

1, 97, 141043

Offset

1,2

Comments

The corresponding primes are 2, 509, 1885717, ...

Links

Table of n, a(n) for n=1..3.

Example

sqrt(prime(97)) = sqrt(509) has continued fraction [22; 1, 1, 3, 1, 1, 2, 10, 1, 8, 8, 1, 10, 2, 1, 1, 3, 1, 1, 44, ...], period 19.
sqrt(prime(98)) = sqrt(521) has continued fraction [22; 1, 4, 1, 2, 1, 2, 8, 1, 3, 3, 1, 8, 2, 1, 2, 1, 4, 1, 44, ...], period 19.
These are the first 2 consecutive primes with the same period of continued fraction for square root, so a(2) = 97.

Mathematica

A054269[n_] := Module[{s = Sqrt[Prime[n]]}, If[IntegerQ[s], 0, Length[ContinuedFraction[s][[2]]]]]; Do[find = 0; k = 0; While[find == 0, k++; If[Length[Union[Table[A054269[j], {j, k, k + n - 1}]]] == 1, find = 1; Print[k]]], {n, 1, 3}]

Crossrefs

Cf. A003285, A031400, A054269.

Sequence in context: A160489 A220982 A193825 * A209475 A186167 A322606

Adjacent sequences: A338776 A338777 A338778 * A338780 A338781 A338782

Keyword

nonn,bref,more

Author

Ilya Gutkovskiy, Nov 08 2020

Status

approved