login
A065569
Smallest k such that omega(n+k) = omega(k).
1
2, 2, 2, 3, 2, 2, 2, 3, 2, 3, 2, 4, 3, 2, 2, 3, 2, 5, 4, 3, 2, 3, 2, 3, 2, 3, 2, 3, 2, 2, 14, 5, 4, 3, 2, 5, 4, 3, 2, 3, 2, 5, 4, 3, 2, 3, 2, 5, 4, 3, 2, 6, 8, 5, 4, 3, 2, 3, 2, 4, 3, 2, 4, 3, 2, 5, 4, 3, 2, 3, 2, 7, 8, 5, 4, 3, 2, 3, 2, 3, 2, 6, 10, 5, 4, 3, 2, 6, 6, 6, 15, 5, 4, 3, 2, 5, 4, 3, 2, 3, 2, 5, 4
OFFSET
1,1
LINKS
PROG
(PARI): ome(m)= {local(k, n); for(k=1, m, n=1; while(omega(n)!=omega(n+k), n++); print1(n, ", "))} ome(200)
(PARI) { for (n=1, 1000, k=1; while(omega(n + k) != omega(k), k++); write("b065569.txt", n, " ", k) ) } \\ Harry J. Smith, Oct 23 2009
CROSSREFS
Sequence in context: A056608 A091787 A087040 * A262941 A127656 A109709
KEYWORD
nonn
AUTHOR
Jason Earls, Nov 30 2001
STATUS
approved