OFFSET
1,1
COMMENTS
If a perfect square is in this sequence, then so is its square root (e.g., 144 and 12). - Alonso del Arte, May 07 2012
The numbers of terms not exceeding 10^k, for k=1,2,..., are 1, 22, 242, 2456, 24632, 246414, 2464272, 24643281, 246433426, ... Apparently, the asymptotic density of this sequence is 0.24643... - Amiram Eldar, Apr 10 2021
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
35 is divisible by both 5 and 7, and 5 and 7 are consecutive primes.
77 is divisible by both 7 and 11, and 7 and 11 are consecutive primes.
110 is not in the sequence because, although it is divisible by 2, 5 and 11, it is not divisible by 3 or 7.
MAPLE
N:= 1000: # for terms <= N
R:= {}:
p:= 2:
do
q:= p; p:= nextprime(p);
if p*q > N then break fi;
R:= R union {seq(i, i=p*q..N, p*q)}
od:
sort(convert(R, list)); # Robert Israel, Apr 13 2020
MATHEMATICA
fQ[n_] := Block[{lst = PrimePi /@ Flatten[ Table[ #[[1]], {1}] & /@ FactorInteger[n]]}, Count[ Drop[lst, 1] - Drop[lst, -1], 1] > 0]; Select[ Range[244], fQ[ # ] &] (* Robert G. Wilson v, Mar 16 2005 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Mar 13 2005
EXTENSIONS
More terms from Robert G. Wilson v, Mar 16 2005
STATUS
approved