OFFSET
1,1
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10000
EXAMPLE
644 = 2^2*7*23 has 3 distinct prime factors, 645 = 3*5*43 has 3 distinct prime factors, and 646 = 2*17*19 has 3 distinct prime factors, so 644 is in the sequence.
MATHEMATICA
q[n_] := q[n] = PrimeNu[n] == 3; Select[Range[3000], q[#] && q[#+1] && q[#+2] &] (* Amiram Eldar, Oct 01 2024 *)
SequencePosition[PrimeNu[Range[3000]], {3, 3, 3}][[;; , 1]] (* Harvey P. Dale, Jul 16 2026 *)
CROSSREFS
KEYWORD
nonn,changed
AUTHOR
R. J. Mathar, Jul 18 2023
STATUS
approved
