login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Collatz-2 (A063041) trajectory starting at 47.
3

%I #14 May 06 2023 21:32:40

%S 47,2022,1011,337,111548,55774,27887,353,123198,61599,20533,421357694,

%T 210678847,44385566460664754,22192783230332377,1707137171564029,

%U 165918667661,27529004277737692540278,13764502138868846270139,4588167379622948756713,352935952278688365901,3237944516318241889,1577861856421,2489648037916767181800822

%N Collatz-2 (A063041) trajectory starting at 47.

%C Will this sequence ever settle into a finite cycle?

%H Sean A. Irvine, <a href="/A280707/b280707.txt">Table of n, a(n) for n = 0..134</a> (terms 0..41 from Antti Karttunen, terms 42..103 from Hans Havermann)

%F a(0) = 47 and for n > 1, a(n) = A063041(a(n-1)).

%o (PARI)

%o A032742(n) = if(1==n,n,n/vecmin(factor(n)[,1]));

%o A063041(n) = if(2==n,3,if(isprime(n),1+(precprime(n-1)*n),A032742(n)));

%o n = 0; k = 47; while(n <= 41, write("b280707.txt", n, " ", k); k = A063041(k); n = n+1);

%Y Cf. A032742, A063041, A063045, A063046.

%K nonn

%O 0,1

%A _Antti Karttunen_, Jan 23 2017