OFFSET
1,1
COMMENTS
The first terms with 2, 3, ..., 6 representations are 520, 4930, 117130, 111270100, and 3142012250. - Giovanni Resta, Mar 15 2020
LINKS
Richárd Pintér, Table of n, a(n) for n = 1..10000
Richárd Pintér, Haskell source
EXAMPLE
10 = 1010_2 is a term, 30 = 1010_3 and 50 = 1212_3 also.
MATHEMATICA
bxy[n_] := Block[{x, y, b, s, bb = Select[Sqrt[ Divisors[n] - 1], IntegerQ[#] && # > 1 && (1 + #^2) # <= n && #^4-#^2-2 >= n &]}, Flatten[ Table[s = Solve[(1 + b^2) (b x + y) == n && 0<x<b && 0<=y<b && x!=y, {x, y}, Integers]; If[s == {}, {}, {b, x, y} /. s], {b, bb}], 1]]; Select[ Range@ 750, bxy[#] != {} &] (* Giovanni Resta, Mar 14 2020 *)
PROG
(Python)
def ok(n):
base = 2
while True:
base3, base2 = base**3, base**2
if base3 + base > n: return False
for a in range(1, base):
for b in range(base):
if a == b: continue
t = a*(base3 + base) + b*(base2 + 1)
if t == n: return True
elif t > n: break
base += 1
print([k for k in range(751) if ok(k)]) # Michael S. Branicky, Oct 30 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Richárd Pintér, Mar 14 2020
STATUS
approved