OFFSET
1,2
COMMENTS
Also numbers k such that k^2 - 4*t is never a square for any t in A055932. - David A. Corneth, May 12 2026
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10000 (first 267 terms from Zhicheng Wei)
MAPLE
filter:= proc(k) local m, v, F;
for m from 1 to k/2 do
v:= m*(k-m);
F:= NumberTheory:-PrimeFactors(v);
if NumberTheory:-pi(max(F)) = nops(F) then return false fi;
od;
true
end proc:
filter(2):= false:
select(filter, [$1..10000]); # Robert Israel, Apr 27 2026
PROG
(PARI)
A055932(n)=my(f=factor(n)[, 1]~); f==primes(#f)
is(n)=sum(k=1, n/2, A055932(k*(n-k)))==0
select(is, [1..4000])
(Python)
from itertools import count, islice
from sympy import primefactors, prime
def A395529_gen(startvalue=1): # generator of terms >= startvalue
for k in count(max(startvalue, 1)):
for m in range(1, k):
p = set(primefactors(m))|set(primefactors(k-m))
if (l:=len(p)) == 0 or prime(l) == max(p):
break
else:
yield k
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Zhicheng Wei, Apr 27 2026
STATUS
approved
