OFFSET
1,2
EXAMPLE
MAPLE
A215151 := proc(n)
option remember;
if n = 1 then
1;
elif numtheory[bigomega](n-1) = numtheory[bigomega](2^procname(n-1)+n-1) then
0 ;
else
procname(n-1)+1 ;
end if;
end proc: # R. J. Mathar, Aug 07 2012
MATHEMATICA
nxt[{n_, a_}]:={n+1, If[PrimeOmega[n]==PrimeOmega[2^a+n], 0, a+1]}; Transpose[ NestList[nxt, {1, 1}, 110]][[2]] (* Harvey P. Dale, Jun 17 2015 *)
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Gerasimov Sergey, Aug 04 2012
STATUS
approved