A078682 - OEIS

A078682

Start with n; iterate the process x -> ceiling(3x/2) until reach a prime. Sequence gives primes reached.

%I #6 Mar 30 2012 18:39:11

%S 2,3,5,9094059599,41,9094059599,11,41,9094059599,23,17,41,99390677,

%T 9094059599,23,542705556759647203359434240657,59,41,29,99390677,

%U 9094059599,113,53,542705556759647203359434240657,16323879599,59,41

%N Start with n; iterate the process x -> ceiling(3x/2) until reach a prime. Sequence gives primes reached.

%o (PARI) a(n)=if(n<0,0,s=n; c=1; while(isprime(ceil(3*s/2))==0,s=ceil(3*s/2); c++); ceil(3*s/2))

%K nonn

%O 1,1

%A _Benoit Cloitre_, Dec 17 2002