OFFSET
1,1
COMMENTS
Numbers k such that k^2 has exactly one divisor d with k/2 <= d < k. - Robert Israel, Jan 08 2025
LINKS
EXAMPLE
15 is in the sequence since 15 = 6+9 has exactly one partition into two parts (6,9) such that 9 | 6*15 = 90.
MAPLE
filter:= proc(n) nops(select(t -> t >= n/2 and t < n, numtheory:-divisors(n^2)))=1 end proc:
select(filter, [$1..1000]); # Robert Israel, Jan 08 2025
PROG
(PARI) f(n) = sum(s=1, n\2, !((s*n)%(n-s))); \\ A338021
isok(k) = f(k) == 1; \\ Michel Marcus, Jan 17 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Jan 16 2022
STATUS
approved
