A066935 Numbers k such that bigomega(k+1)==0 (mod bigomega(k)) where bigomega(n)=A001222(n) is the number of prime divisors of n (counted with multiplicity).

2, 3, 5, 7, 9, 11, 13, 14, 15, 17, 19, 21, 23, 25, 27, 29, 31, 33, 34, 35, 37, 38, 39, 41, 43, 44, 47, 53, 55, 57, 59, 61, 63, 67, 71, 73, 75, 79, 83, 85, 86, 87, 89, 93, 94, 95, 97, 98, 101, 103, 107, 109, 113, 116, 118, 121, 122, 124, 127, 131, 133, 134, 135, 137, 139

Offset

1,1

Links

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

Mathematica

bigomega[n_] := Plus@@Last/@FactorInteger[n]; Select[Range[2, 150], Mod[bigomega[ #+1], bigomega[ # ]]==0&]

Prog

(PARI) isok(k) = { k > 1 && bigomega(k+1) % bigomega(k) == 0 } \\ Harry J. Smith, Apr 08 2010

Crossrefs

Sequence in context: A348638 A079051 A226047 * A042943 A306466 A258037

Adjacent sequences: A066932 A066933 A066934 * A066936 A066937 A066938

Keyword

nonn

Author

Benoit Cloitre, Jan 24 2002

Extensions

Edited by Dean Hickerson, Jan 27 2002

Status

approved