A063465 Number k such that omega(k) = omega(k+3), where omega(k) is the number of distinct prime divisors of k.

2, 4, 5, 8, 12, 13, 15, 16, 18, 21, 29, 33, 35, 36, 45, 48, 51, 52, 54, 55, 61, 62, 64, 65, 69, 72, 74, 77, 82, 85, 88, 91, 92, 93, 95, 96, 102, 108, 112, 115, 116, 119, 125, 128, 133, 141, 142, 143, 144, 145, 152, 155, 158, 159, 161, 165, 172, 175, 184, 185, 189

Offset

1,1

Links

Harry J. Smith, Table of n, a(n) for n = 1..1000

Mathematica

SequencePosition[PrimeNu[Range[200]], {x_, _, _, x_}][[;; , 1]] (* Harvey P. Dale, Mar 10 2026 *)

Prog

(PARI) select(m->omega(m) == omega(m + 3), [1..350])

Crossrefs

Sequence in context: A080588 A032850 A190190 * A287346 A344841 A035001

Adjacent sequences: A063462 A063463 A063464 * A063466 A063467 A063468

Keyword

nonn

Author

Jason Earls, Jul 26 2001

Status

approved