A077428
Minimal (positive) solution a(n) of Pell equation a(n)^2 - D(n)*b(n)^2 = +4 with D(n)= A077425(n). The companion sequence is b(n)=A078355(n).
Original entry on oeis.org
3, 11, 66, 5, 27, 46, 146, 4098, 7, 51, 302, 1523, 258, 25, 4562498, 9, 83, 1000002, 29, 125619266, 402, 82, 68123, 2408706, 11, 123, 33710, 173, 12166146, 190, 578, 3723, 4354, 45371, 23550, 13, 171, 124846, 1703027, 18498, 110, 12448646853698, 786
Offset: 1
- O. Perron, "Die Lehre von den Kettenbruechen, Bd.I", Teubner, 1954, 1957 (Sec. 30, Satz 3.35, p. 109 and table p. 108).
-
d = Select[Range[5, 300, 4], !IntegerQ[Sqrt[#]]&]; a[n_] := Module[{a, b, r}, a /. {r = Reduce[a > 0 && b > 0 && a^2 - d[[n]]*b^2 == 4, {a, b}, Integers]; (r /. C[1] -> 0) || (r /. C[1] -> 1) // ToRules} // Select[#, IntegerQ, 1] &] // First; Table[a[n], {n, 1, 43}] (* Jean-François Alcover, Jul 30 2013 *)
A078355
Minimal (positive) solution a(n) of Pell equation b(n)^2 - D(n)*a(n)^2 = +4 with D(n)= A077425(n). The companion sequence is a(n)=A077428(n).
Original entry on oeis.org
1, 3, 16, 1, 5, 8, 24, 640, 1, 7, 40, 195, 32, 3, 534000, 1, 9, 106000, 3, 12754704, 40, 8, 6525, 226592, 1, 11, 2968, 15, 1039424, 16, 48, 305, 352, 3621, 1856, 1, 13, 9384, 126585, 1360, 8, 896073208080, 56, 72664, 3, 6440, 5, 521904, 1, 15, 140510608, 5
Offset: 1
- O. Perron, "Die Lehre von den Kettenbruechen, Bd.I", Teubner, 1954, 1957 (Sec. 30, Satz 3.35, p. 109 and table p. 108).
-
d = Select[Range[5, 300, 4], !IntegerQ[Sqrt[#]]&]; a[n_] := Module[{a, b, r}, b /. {r = Reduce[a > 0 && b > 0 && a^2 - d[[n]]*b^2 == 4, {a, b}, Integers]; (r /. C[1] -> 0) || (r /. C[1] -> 1) // ToRules} // Select[#, IntegerQ, 1] &] // First; Table[a[n], {n, 1, 52}] (* Jean-François Alcover, Jul 30 2013 *)
A077427
Primitive period length of (regular) continued fraction of (sqrt(D(n))+1)/2 for D(n)=A077425(n).
Original entry on oeis.org
1, 1, 3, 2, 1, 4, 3, 5, 2, 1, 6, 3, 3, 4, 9, 2, 1, 7, 2, 9, 3, 6, 7, 7, 2, 1, 10, 4, 7, 4, 3, 5, 8, 5, 10, 2, 1, 12, 5, 3, 4, 15, 3, 14, 4, 12, 4, 16, 2, 1, 9, 2, 19, 2, 16, 6, 3, 8, 11, 5, 6, 9, 15, 2, 1, 10, 10, 4, 6, 19, 3, 4, 3, 16
Offset: 1
a(6)=4 because the (periodic) continued fraction for (sqrt(D(6))+1)/2 = (sqrt(33)+1)/2 = 3.372281324... is [3, periodic(2, 1, 2, 5,)] with period length 4. Because these continued fractions are always of the form [b(0),periodic(b(1),b(2),...,b(2),b(1),2*b(0)-1,)] with the symmetric piece b(1),b(2),..., b(2),b(1), Perron op. cit. writes for this b(0),b(1),b(2),...,(b(k/2)) if the period length k is even and b(0),b(1),b(2),...,b((k-1)/2) if the period length is odd. In this example: k=4 and Perron writes 3,2,(1). Another example: D(8)= A077425(8)=41 leads to Perron's 3,1,2 standing for [3,periodic(1,2,2,1,5,)], the continued fraction for (sqrt(41)+1)/2 which has odd period length a(8)=5.
a(4)=2 is even and D(4)=A077425(4)=21, hence x^2 - 21*y^2 = -4 has no nontrivial integer solution.
a(8)=5 is odd and D(8)=A077425(8)=41, hence x^2 - 41*y^2 = -4 is solvable (with nontrivial integers) as well as x^2 - 41*y^2 = +4.
- O. Perron, "Die Lehre von den Kettenbruechen, Bd.I", Teubner, 1954, 1957 (Sec. 30, Satz 3.35, p. 109).
A226165
Squarefree part of A077425(n) (numbers 4*k+1, k>=0, not a square).
Original entry on oeis.org
5, 13, 17, 21, 29, 33, 37, 41, 5, 53, 57, 61, 65, 69, 73, 77, 85, 89, 93, 97, 101, 105, 109, 113, 13, 5, 129, 133, 137, 141, 145, 149, 17, 157, 161, 165, 173, 177, 181, 185, 21, 193, 197, 201, 205, 209, 213, 217, 221, 229, 233, 237, 241, 5, 249, 253, 257, 29
Offset: 1
-
SquareFreePart[n_] := Times @@ Power @@@ ({#[[1]], Mod[#[[2]], 2]} & /@ FactorInteger[n]); SquareFreePart /@ (4*Range[65] + 1) // DeleteCases[#, 1] & (* Jean-François Alcover, Jun 14 2013 *)
-
[core(n) | n <- vector(100,n,4*n+1), !issquare(n)] \\ Charles R Greathouse IV, Mar 11 2014
A078361
Minimal positive solution a(n) of Pell equation a(n)^2 - D(n)*b(n)^2 = +4 or -4 with D(n)=A077425(n). The companion sequence is b(n)=A077058(n).
Original entry on oeis.org
1, 3, 8, 5, 5, 46, 12, 64, 7, 7, 302, 39, 16, 25, 2136, 9, 9, 1000, 29, 11208, 20, 82, 261, 1552, 11, 11, 33710, 173, 3488, 190, 24, 61, 4354, 213, 23550, 13, 13, 124846, 1305, 136, 110, 3528264, 28, 1030190, 43, 93102, 73, 7688126, 15, 15, 46312, 77
Offset: 1
29=D(5)=A077425(5) is A077426(4), hence a(5)=5 and b(5)=A077058(5)=1 solve a^2 - 29*b^2=-4 minimally and a(+,5)=a(5)^2+2=27 with b(+,5)=a(5)*b(5)=5*1=5 solve a^2 - 29*b^2=+4 minimally. See also A077428 with companion A078355.
21=D(4)=A077425(4) is not in A077426, hence a(4)=5 and b(4)=A077058(4)=1 give the solution with minimal positive b of a^2 - 21*b^2=+4.
- O. Perron, "Die Lehre von den Kettenbruechen, Bd.I", Teubner, 1954, 1957 (Sec. 30, Satz 3.35, p. 109 and table p. 108).
A078371
a(n) = (2*n+5)*(2*n+1).
Original entry on oeis.org
5, 21, 45, 77, 117, 165, 221, 285, 357, 437, 525, 621, 725, 837, 957, 1085, 1221, 1365, 1517, 1677, 1845, 2021, 2205, 2397, 2597, 2805, 3021, 3245, 3477, 3717, 3965, 4221, 4485, 4757, 5037, 5325, 5621, 5925, 6237, 6557, 6885, 7221, 7565, 7917, 8277, 8645
Offset: 0
- Bruno Berselli, Table of n, a(n) for n = 0..1000
- Soren Laing Aletheia-Zomlefer, Lenny Fukshansky, and Stephan Ramon Garcia, The Bateman-Horn Conjecture: Heuristics, History, and Applications, arXiv:1807.08899 [math.NT], 2018-2019. See Example 6.6.5 p. 34.
- A. M. S. Ramasamy, Polynomial solutions for the Pell's equation, Indian Journal of Pure and Applied Mathematics 25 (1994), p. 578.
- Index entries for linear recurrences with constant coefficients, signature (3,-3,1).
Subsequence of
A077425 (D values (not a square) for which Pell x^2 - D*y^2 = +4 is solvable in positive integers).
-
[(2*n+5)*(2*n+1): n in [0..100]]; // G. C. Greubel, Sep 19 2018
-
seq((2*n+5)*(2*n+1), n=0..48); # Emeric Deutsch, Feb 24 2005
-
Table[(2 n + 5) (2 n + 1), {n, 0, 100}] (* Wesley Ivan Hurt, Nov 19 2013 *)
LinearRecurrence[{3,-3,1},{5,21,45},50] (* Harvey P. Dale, Oct 18 2020 *)
-
lista(nn) = {for (n=0, nn, print1((2*n+1)*(2*n+5), ", "));} \\ Michel Marcus, Nov 21 2013
A078358
Non-oblong numbers: Complement of A002378.
Original entry on oeis.org
1, 3, 4, 5, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 18, 19, 21, 22, 23, 24, 25, 26, 27, 28, 29, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 73, 74
Offset: 1
- O. Perron, "Die Lehre von den Kettenbruechen, Bd.I", Teubner, 1954, 1957 (Sec. 30, Satz 3.35, p. 109 and table p. 108).
-
a078358 n = a078358_list !! (n-1)
a078358_list = filter ((== 0) . a005369) [0..]
-- Reinhard Zumkeller, Jul 04 2014, May 08 2012
-
Complement[Range[930], Table[n (n + 1), {n, 0, 30}]] (* and *) Table[Ceiling[Sqrt[n]] + n - 1, {n, 900}] (* Vladimir Joseph Stephan Orlovsky, Jul 20 2011 *)
-
a(n)=sqrtint(n-1)+n \\ Charles R Greathouse IV, Jan 17 2013
-
from operator import sub
from sympy import integer_nthroot
def A078358(n): return n+sub(*integer_nthroot(n,2)) # Chai Wah Wu, Oct 01 2024
A077426
Nonsquare integers n such that the continued fraction (sqrt(n)+1)/2 has odd period length.
Original entry on oeis.org
5, 13, 17, 29, 37, 41, 53, 61, 65, 73, 85, 89, 97, 101, 109, 113, 125, 137, 145, 149, 157, 173, 181, 185, 193, 197, 229, 233, 241, 257, 265, 269, 277, 281, 293, 313, 317, 325, 337, 349, 353, 365, 373, 389, 397, 401, 409, 421, 425, 433, 445, 449, 457, 461, 481, 485
Offset: 1
- O. Perron, "Die Lehre von den Kettenbruechen, Bd.I", Teubner, 1954, 1957 (Sec. 30, table p. 108).
-
isOddPrim := proc(n::integer)
local cf;
cf := numtheory[cfrac]((sqrt(n)+1)/2,'periodic','quotients') ;
if nops(op(2,cf)) mod 2 =1 then
RETURN(true) ;
else
RETURN(false) ;
fi ;
end:
notA077426 := proc(n::integer)
if issqr(n) then
RETURN(true) ;
elif not isOddPrim(n) then
RETURN(true) ;
else
RETURN(false) ;
fi ;
end:
A077426 := proc(n::integer)
local resul,i ;
resul := 5 ;
i := 1 ;
while i < n do
resul := resul+4 ;
while notA077426(resul) do
resul := resul+4 ;
od ;
i:= i+1 ;
od ;
RETURN(resul) ;
end:
for n from 1 to 61 do print(A077426(n)) ; od : # R. J. Mathar, Apr 25 2006
-
fQ[n_] := !IntegerQ@ Sqrt@ n && OddQ@ Length@ ContinuedFraction[(Sqrt@ n + 1)/2][[2]]; Select[Range@ 500, fQ] (* Robert G. Wilson v, Nov 17 2012 *)
A078356
Minimal positive solution z of Pell equation z^2 - A077426(n)*t^2 = -4.
Original entry on oeis.org
1, 3, 8, 5, 12, 64, 7, 39, 16, 2136, 9, 1000, 11208, 20, 261, 1552, 11, 3488, 24, 61, 213, 13, 1305, 136, 3528264, 28, 15, 46312, 142022136, 32, 12144, 164, 2613, 2127064, 17, 253724736, 89, 36, 2031654672, 18420, 142528, 19, 10236, 2564, 3447, 40, 223843593936
Offset: 1
41=D(6)=A077426(6) (also A077425(8)), hence a(6)=64 and b(6)=A078357(6)=10 satisfies 64^2 - 41*10^2 = -4.
- O. Perron, "Die Lehre von den Kettenbruechen, Bd.I", Teubner, 1954, 1957 (Sec. 30, Satz 3.35, p. 109 and table p. 108).
-
$MaxExtraPrecision = 100; A077426 = Select[Range[ 500], ! IntegerQ[Sqrt[#]] && OddQ[ Length[ ContinuedFraction[(Sqrt[#] + 1)/2] // Last]] &]; a[n_] := {z, t} /. {ToRules[ Reduce[z > 0 && t > 0 && z^2 - A077426[[n]]*t^2 == -4, {z, t}, Integers] /. C[1] -> 0]} // Sort // First // First; Table[a[n], {n, 1, 50}] (* Jean-François Alcover, Jun 21 2013 *)
A077057
Minimal positive solution a(n) of Diophantine equation a(n)^2 - a(n)*b(n) - G(n)*b(n)^2 = +1 or -1 with G(n) := A078358(n). The companion sequence is b(n)=A077058(n).
Original entry on oeis.org
1, 2, 5, 3, 3, 27, 7, 37, 4, 4, 171, 22, 9, 14, 1193, 5, 5, 553, 16, 6173, 11, 45, 143, 849, 6, 6, 18339, 94, 1893, 103, 13, 33, 2353, 115, 12703, 7, 7, 67115, 701, 73, 59, 1891117, 15, 551427, 23, 49771, 39, 4105015, 8, 8, 24673, 41, 75585293, 25, 9095891, 989, 17, 386, 6445, 87, 771, 1385
Offset: 1
- O. Perron, "Die Lehre von den Kettenbruechen, Bd.I", Teubner, 1954, 1957 (Sec. 30, Satz 3.35, p. 109 and table p. 108).
-
g[n_] := Ceiling[Sqrt[n]] + n - 1; r[n_] := Reduce[an > 0 && bn > 0 && (an ^2 - an*bn - g[n]*bn^2 == 1 || an^2 - an*bn - g[n]*bn^2 == - 1), {an, bn}, Integers] /. C -> c; ab[n_] := DeleteCases[ Flatten[ Table[{an, bn} /. {ToRules[r[n]]} // Simplify, {c[1], 0, 1}], 1], an | bn]; a[n_] := a[n] = Min[ab[n][[All, 1]]]; Table[Print[{n, a[n]}]; a[n], {n, 1, 62}] (* Jean-François Alcover, Oct 04 2012 *)
a(9), a(33), a(54) corrected (after notice by Jean-François Alcover); a(58) through a(62) added. -
Wolfdieter Lang, Oct 04 2012
Showing 1-10 of 13 results.
Comments