|
%I #7 Feb 18 2019 11:12:49
%S 1,2,3,5,9,11,18,20,21,22,24,29,34,35,42,43,57,61,74,79,81,95,101,102,
%T 111,112,118,120,123,128,136,151,153,154,163,166,167,170,173,177,190,
%U 194,195,198,199,203,205,208,212,213,239,242,245,263,267,271,278,283
%N Numbers k such that (k-th odd semiprime)/(j-th prime) is prime and ((k+1)-th odd semiprime)/((j+1)-th prime) is prime for some j.
%p A046315 := proc(n) option remember; if n = 1 then 9; else for a from procname(n-1)+2 by 2 do if numtheory[bigomega](a) = 2 then return a; end if; end do: end if; end proc:
%p A020639 := proc(n) numtheory[factorset](n) ; min(op(%)) ; end proc:
%p isA176550 := proc(n) os := A046315(n) ; p := A020639(os) ; q := os/p ; ( A046315(n+1) mod nextprime(p) ) = 0 or (A046315(n+1) mod nextprime(q) = 0 ) ; end proc:
%p for n from 1 to 300 do if isA176550(n) then printf("%d,",n) ; end if; end do: # _R. J. Mathar_, May 30 2010
%Y Cf. A046315, A084126, A084127, A176484.
%K nonn
%O 1,2
%A _Juri-Stepan Gerasimov_, Apr 20 2010
%E Corrected (39 removed, 43 inserted) and extended by _R. J. Mathar_, May 30 2010
|
