Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #8 Jun 22 2018 11:33:29
%S 6,12,14,18,20,24,38,44,48,54,62,68,72,74,80,98,104,108,152,158,164,
%T 192,194,200,212,224,242,272,278,284,314,332,338,368,384,398,422,432,
%U 458,464,488,500,524,542,548,578,608,614,632,648,662,674,692,734,752,758
%N Composites n with exactly two distinct prime divisors and of the form n=1+(any prime).
%H Harvey P. Dale, <a href="/A136151/b136151.txt">Table of n, a(n) for n = 1..1000</a>
%F A008864 INTERSECT A007774. - _R. J. Mathar_, Feb 01 2008
%p isA136151 := proc(n) if isprime(n-1) then if nops(numtheory[factorset](n)) =2 then true; else false ; fi ; else false ; fi ; end: for i from 1 to 200 do n := ithprime(i)+1 ; if isA136151( n) then printf("%d, ",n) ; fi ; od: # _R. J. Mathar_, Feb 01 2008
%t Select[Range[800],PrimeNu[#]==2&&PrimeQ[#-1]&] (* _Harvey P. Dale_, Jun 22 2018 *)
%Y Cf. A136152, A136153, A136154, A136155.
%K easy,nonn
%O 1,1
%A _Enoch Haga_, Dec 16 2007
%E Edited by _R. J. Mathar_, Feb 01 2008