OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
71 is a term since 71 and 73 are twin primes and Omega(71 + 1) = Omega(72) = Omega(2*2*2*3*3) = 5.
MATHEMATICA
Omega = If[ # == 1, 0, Apply[Plus, Transpose[FactorInteger[ # ]][[2]]]] &; Wmil = Map[Omega, Range[1, 30000]]; Asequence = Flatten@Position[Partition[Wmil, 3, 1], {1, 5, 1}]
Select[Partition[Prime[Range[800]], 2, 1], #[[2]]-#[[1]]==2&&PrimeOmega[ #[[1]]+1] ==5&][[All, 1]] (* Harvey P. Dale, Apr 02 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Carlos Alves, Aug 12 2009
STATUS
approved