|
| |
|
|
A094137
|
|
Values y of smallest positive pair (x,y) satisfying x^2 - 2*y^2 = -+d, where d=A058529(n).
|
|
5
| |
|
|
1, 2, 3, 1, 4, 5, 1, 5, 6, 2, 1, 7, 7, 8, 2, 8, 8, 9, 3, 9, 1, 10, 11, 10, 11, 1, 11, 12, 11, 4, 12, 3, 2, 12, 13, 14, 13, 13, 13, 14, 2, 1, 14, 14, 14, 15, 4, 16, 2, 1, 15, 17, 16, 5, 16, 17, 16, 16, 2, 1, 17, 17, 17, 17, 4, 18, 19, 3, 2, 18, 20, 19, 18, 19, 20, 19, 19, 20, 19, 1, 7, 20, 21
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| Here (x,y) is considered smaller than (u,v) iff x+y < u+v or (x+y = u+v and x < u).
|
|
|
EXAMPLE
| A058529(5) = 31; (1, 4), (7, 3), (9, 5), (13, 10), ... are pairs satisfying x^2 - 2*y^2 = -+31; (1, 4) is the smallest one, so a(5) = 4.
|
|
|
PROG
| (PARI) {for(n=1, 765, fac=factor(n); v=vector(matsize(fac)[1], j, fac[j, 1])%8; b=1; for(k=1, length(v), if(v[k]>1&&v[k]<7, b=0)); if(b>0, print1(sp(n)[2], ", ")))}. For sp(n) see A094136.
|
|
|
CROSSREFS
| Cf. A058529, A094136, A094138.
Sequence in context: A193790 A055446 A104706 * A038802 A092942 A131225
Adjacent sequences: A094134 A094135 A094136 * A094138 A094139 A094140
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Lekraj Beedassy (blekraj(AT)yahoo.com), May 04 2004
|
|
|
EXTENSIONS
| Edited, corrected and extended by Klaus Brockhaus (klaus-brockhaus(AT)t-online.de) May 31 2004
|
| |
|
|
