|
| |
|
|
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).
|
|
1
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| 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: A185525 A187425 A186218 * A045145 A015806 A109836
Adjacent sequences: A102535 A102536 A102537 * 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
|
| |
|
|
