OFFSET
1,33
COMMENTS
If a(n) > 0 then a(n+1) = a(n)-1.
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..100000
EXAMPLE
33=3*11 has only two successors also with two factors: 34=2*17 and 35=5*7 (whereas 33+3=36=2*2*3*3), therefore a(33)=2.
MATHEMATICA
snpf[n_]:=Module[{f=PrimeOmega[n], k=0}, While[f==PrimeOmega[n+k], k++]; k]; Array[snpf, 110]-1 (* Harvey P. Dale, Aug 01 2021 *)
PROG
(PARI) A077655(n) = { my(k=n+1, w=bigomega(n)); while(bigomega(k)==w, k++); (k-n)-1; }; \\ Antti Karttunen, Jan 22 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Nov 13 2002
STATUS
approved