|
%I #15 Apr 12 2021 04:42:24
%S 10,14,21,22,26,33,34,38,39,46,51,55,57,58,62,65,69,74,82,85,86,87,91,
%T 93,94,95,106,111,115,118,119,122,123,129,133,134,141,142,145,146,155,
%U 158,159,161,166,177,178,183,185,187,194,201,202,203,205,206,209,213
%N Products of pairs of distinct, non-consecutive primes.
%C m belongs to the sequence iff m=A001358(k) for some k and A089994(k)>0.
%H Amiram Eldar, <a href="/A089995/b089995.txt">Table of n, a(n) for n = 1..10000</a>
%t With[{nn = 213}, TakeWhile[#, # <= nn &] &@ Union@ Flatten@ Table[Function[p, p Prime@ Range[n + 2, Prime@ PrimePi[nn/p]]]@ Prime@ n, {n, Sqrt@ nn}]] (* _Michael De Vlieger_, Feb 02 2017 *)
%Y Cf. A006881, A001358, A084126, A084127, A089994, A033476.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Nov 19 2003
|
