|
Search: id:A081233
|
|
|
| A081233 |
|
Let p = n-th prime, take smallest solution (x,y) to the Pellian equation x^2 - p*y^2 = 1 with x and y >= 1; sequence gives value of x. |
|
+0
5
|
|
| 3, 2, 9, 8, 10, 649, 33, 170, 24, 9801, 1520, 73, 2049, 3482, 48, 66249, 530, 1766319049, 48842, 3480, 2281249, 80, 82, 500001, 62809633, 201, 227528, 962, 158070671986249, 1204353, 4730624, 10610, 6083073, 77563250, 25801741449
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
PellSolve[(m_Integer)?Positive] := Module[{cf, n, s}, cf = ContinuedFraction[ Sqrt[m]]; n = Length[Last[cf]]; If[OddQ[n], n = 2*n]; s = FromContinuedFraction[ ContinuedFraction[ Sqrt[m], n]]; {Numerator[s], Denominator[s]}]; Table[ PellSolve[ Prime[n]][[1]], {n, 35}] (from Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 22 2005)
|
|
CROSSREFS
|
Values of y are in A081234. Equals A002350(p). Cf. A082393.
Sequence in context: A124003 A159588 A118045 this_sequence A050676 A010372 A152049
Adjacent sequences: A081230 A081231 A081232 this_sequence A081234 A081235 A081236
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
N. J. A. Sloane (njas(AT)research.att.com), Apr 18, 2003
|
|
EXTENSIONS
|
a(8) - a(35) from Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 22 2005
|
|
|
Search completed in 0.002 seconds
|
