OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
FORMULA
MATHEMATICA
Flatten[Select[Partition[Union[Times@@@Tuples[Prime[Range[150]], {2}]], 3, 1], #[[3]]-#[[2]]==#[[2]]-#[[1]]==1&]] (* Harvey P. Dale, Jan 22 2011 *)
{#[[1]], #[[1]]+1, #[[2]]}&/@SequencePosition[Table[If[PrimeOmega[n]==2, 1, 0], {n, 1500}], {1, 1, 1}]//Flatten (* Harvey P. Dale, Nov 07 2025 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Mar 08 2006
STATUS
approved
