OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..7230
EXAMPLE
MAPLE
g:= proc(n) convert(convert(n, base, 2), `+`) end proc:
N:= 10^4: # for terms <= N
S:= NULL: p:= 2:
while 3*p <= N do
p:= nextprime(p);
t:= g(p);
q:= 2:
do
q:= nextprime(q);
if q = p or q*p > N then break fi;
if g(q)*t = g(p*q) then S:= S, p*q fi;
od od:
sort([S]);
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert Israel, Sep 04 2023
STATUS
approved