A082924 - OEIS

%I #7 Oct 13 2013 10:02:03

%S 3,3,4,2,6,3,8,4,27,5,12,6,14,7,45,8,18,9,20,10,63,11,24,12,75,13,81,

%T 14,30,15,32,16,99,17,105,18,38,19,117,20,42,21,44,22,135,23,48,24,

%U 147,25,153,26,54,27,165,28,171,29,60,30,62,31,189,32,195,33,68,34,207,35,72

%N For n prime, a(n) = n+1; for n even and > 2, a(n) = n/2; otherwise a(n) = 3*n.

%o (PARI) crazy1(n) = { for(x=1,n, if(x%2==0,y=x/2,y=x*3); if(isprime(x),y=x+1); print1(y" ") ) }

%K easy,nonn

%O 1,1

%A _Cino Hilliard_, May 26 2003

%E Edited by _David Wasserman_, Oct 21 2003