A039668 Replaced by the pair of sequences A048611 and A048612.
1, 0, 6, 5, 20, 17, 56, 45, 156, 115, 344, 85, 356, 125
Offset: 0
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
For n=2, 6^2 - 5^2 = 11.
s = Flatten[Table[r = (10^i - 1)/9; d = Divisors[r]; p = d[[Length[d]/2]]; Solve[{x - y == p, x + y == r/p}, {y, x}], {i, 2, 56}]]; Prepend[Cases[s, Rule[y, n_] -> n], 0] Join[{0},Table[y/.Solve[{x>0,y>0,x^2-y^2==FromDigits[PadRight[{},n,1]]},{x,y},Integers][[1]],{n,2,30}]](* Harvey P. Dale, Jun 12 2018 *)
from sympy import divisors def A048612(n): d = divisors((10**n-1)//9) l = len(d) return (d[l//2]-d[(l-1)//2])//2 # Chai Wah Wu, Apr 05 2021
Comments