OFFSET
1,1
COMMENTS
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..2000
EXAMPLE
(239, 240, 241): Omega(240)=Omega(2*2*2*2*3*5)=6 and 239, 241 are twin primes.
MATHEMATICA
Omega = If[ # == 1, 0, Apply[Plus, Transpose[FactorInteger[ # ]][[2]]]] &; Wmil = Map[Omega, Range[1, 30000]]; Asequence = Flatten@Position[Partition[Wmil, 3, 1], {1, 6, 1}]
Transpose[Select[Partition[Prime[Range[1600]], 2, 1], #[[2]]-#[[1]]==2 && PrimeOmega[ #[[1]]+1]==6&]][[1]] (* Harvey P. Dale, May 15 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Carlos Alves, Aug 12 2009
STATUS
approved