Amiram Eldar, <a href="/A146340/b146340_1.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..150 from Harvey P. Dale)

reviewed

approved

OEIS Server: Installed new b-file as b146340.txt.  Old b-file is now b146340_1.txt.

proposed

reviewed

editing

proposed

Amiram Eldar, <a href="/A146340/b146340_1.txt">Table of n, a(n) for n = 1..10000</a>> (terms 1..150 from Harvey P. Dale)

s = 10; aa = {}; Do[k = ContinuedFraction[(1 + Sqrt[n])/2, 1000]; If[Length[k] < 190, AppendTo[aa, 0], m = 1; While[k[[s ]] != k[[s + m]] || k[[s + m]] != k[[s + 2 m]] || k[[s + 2 m]] != k[[s + 3 m]] || k[[s + 3 m]] != k[[s + 4 m]], m++ ]; s = s + 1; While[k[[s ]] != k[[s + m]] || k[[s + m]] != k[[s + 2 m]] || k[[s + 2 m]] != k[[s + 3 m]] || k[[s + 3 m]] != k[[s + 4 m]], m++ ]; AppendTo[aa, m]], {n, 1, 500}]; bb = {}; Do[If[aa[[n]] == 17, AppendTo[bb, n]], {n, 1, Length[aa]}]; bb

HarveyAmiram P. DaleEldar, <a href="/A146340/b146340_1.txt">Table of n, a(n) for n = 1..15010000</a>

approved

editing

editing

approved

521, 617, 709, 1433, 1597, 2549, 2909, 2965, 3161, 3581, 3821, 4013, 4285, 4649, 5501, 5585, 5693, 5813, 6197, 6409, 7825, 7853, 8093, 8125, 8573, 8917, 9281, 9665, 9677, 9925, 10265, 10597, 10973, 11273, 12085, 12805, 13061, 13109, 13613, 13957, 14677

More terms from Harvey P. Dale, Dec 20 2017

approved

editing

editing

approved

Harvey P. Dale, <a href="/A146340/b146340.txt">Table of n, a(n) for n = 1..150</a>

cf17Q[n_]:=Module[{s=(1+Sqrt[n])/2}, If[IntegerQ[s], 1, Length[ ContinuedFraction[ s][[2]]]]==17]; Select[Range[5000], cf17Q] (* Harvey P. Dale, Dec 20 2017 *)

approved

editing