|
Search: id:A102538
|
|
|
| A102538 |
|
Numbers n not of form k(k+2) that have a single '1' in the periodic part of the continued fraction of sqrt(n). |
|
+0
2
|
|
| 175, 176, 208, 551, 799, 1035, 1247, 1403, 1872, 2856, 2967, 3395, 3496, 3503, 3531, 3731, 3864, 3999, 4136, 4387, 4416, 4512, 4543, 5343, 5368, 5499, 5520, 6099, 6160, 6608, 6751, 7791, 8855, 9048, 10439, 10664, 10904, 11323, 11935, 12208, 13299
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Members of A013648 not in A005563.
|
|
MATHEMATICA
|
fQ[n_] := Block[{k = Floor[Sqrt[n]]}, If[ k(k + 2) != n && !IntegerQ[ Sqrt[n]], cof = Sort[ ContinuedFraction[ Sqrt[n]] [[2]]]; If[ cof[[1]] == 1 && cof[[2]] != 1, True]]]; Select[ Range[ 13986], fQ[ # ] &] (from Robert G. Wilson v Jan 25 2005)
|
|
CROSSREFS
|
Sequence in context: A025381 A077395 A053173 this_sequence A045145 A015806 A109836
Adjacent sequences: A102535 A102536 A102537 this_sequence A102539 A102540 A102541
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Ralf Stephan, Jan 14 2005
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 25 2005
|
|
|
Search completed in 0.002 seconds
|
