OFFSET
0,1
EXAMPLE
a(2) = 72: 72 is an interprime because 72 = (71+73)/2 with 71 and 73 consecutive primes; 72 is divisible by the two squares of primes 2^2 and 3^2; and no smaller interprime is divisible by two squares of primes.
MAPLE
f:= proc(n) local F, t;
F:= ifactors(n)[2];
nops(select(t -> t[2]>=2, F))
end proc:
V:= Array(0..5, -1): count:= 0: q:= 3:
while count < 6 do
p:= q; q:= nextprime(q); x:= (p+q)/2;
v:= f(x);
if V[v] = -1 then V[v]:= x; count:= count+1 fi
od:
convert(V, list):
CROSSREFS
KEYWORD
nonn,more
AUTHOR
J. M. Bergot and Robert Israel, Jun 13 2022
EXTENSIONS
a(6) from Amiram Eldar, Jun 13 2022
STATUS
approved