OFFSET
1,3
COMMENTS
k is in this sequence if there exist numbers x, y, v, w such that k = x^2 + x*y + y^2 = (v + w)*(v^2 + w^2). We call (x, y, v, w) a witness of k. k can have different witnesses.
LINKS
Peter Luschny, Table of n, a(n) for n = 1..1200
EXAMPLE
729 = 27^2 + 27*0 + 0^2 = (9 + 0)*(9^2 + 0^2).
3492 = 48^2 + 48*18 + 18^2 = (13 + 5)*(13^2 + 5^2).
3667 = 53^2 + 53*13 + 13^2 = (12 + 7)*(12^2 + 7^2).
PROG
(Julia) # Returns the terms less than or equal to b^3.
# Uses the function isA003136 from A003136.
function A349200List(b)
b3 = b^3; R = [0]
for n in 1:b
for k in 0:n
a = (n + k) * (n^2 + k^2)
a > b3 && break
isA003136(a) && push!(R, a)
end end
sort(R) end
A349200List(24) |> println
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Luschny, Nov 10 2021
STATUS
approved