OFFSET
1,5
COMMENTS
a(n) = 1 iff n-th 3-almost prime is of form prime + 1 (not yet in OEIS). See also: A109067 3-almost primes of the form semiprime + 1.
EXAMPLE
a(1) = 8 - 7 = 1; a(2) = 12 - 11 = 1; a(3) = 18 - 17 = 1;
a(4) = 20 - 19 = 1; a(5) = 27 - 23 = 4; a(6) = 28 - 23 = 5;
a(7) = 30 - 29 = 1.
MAPLE
A014612 := proc(n) option remember; local a; if n = 1 then 8; else for a from procname(n-1)+1 do if numtheory[bigomega](a) = 3 then return a; end if; end do: end if; end proc:
seq(A121906(n), n=1..80) ; # R. J. Mathar, Dec 22 2010
MATHEMATICA
lim=335; p3=Select[Range[lim], PrimeOmega[#] == 3 &] ; l3=Length[p3]; Table[p3[[n]]-NextPrime[p3[[n]], -1], {n, l3}] (* James C. McMahon, Oct 24 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jonathan Vos Post, Sep 01 2006
EXTENSIONS
a(13) corrected by R. J. Mathar, Dec 22 2010
STATUS
approved