cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A053147 When cototient function (A051953) is iterated with initial value A002110(n), a(n) is the value of first (largest) power of 2 which appears in the iteration.

This page as a plain text file.
%I A053147 #25 Jul 12 2021 11:13:56
%S A053147 2,4,8,32,32,256,32,512,256,65536,64,512,4096,256,512,128,16,2048,64,
%T A053147 64,512,8192,256,8192,2048,131072,128,8192,1048576,16,2048,2048,32768,
%U A053147 8192,512,524288,8192,64,16,8192,16,16,256,16
%N A053147 When cototient function (A051953) is iterated with initial value A002110(n), a(n) is the value of first (largest) power of 2 which appears in the iteration.
%C A053147 In these iteration chains the number of non-2-powers seem to be dominant.
%C A053147 The sequence is not monotonic.
%e A053147 For n=10, the iteration chain of 43 terms is {6469693230, 5447823150, 4315810350, ..., 188416, 98304, 65536, 32768, ..., 4, 2, 1, 0} in which the largest power of 2 is 65536 = 2^16.
%e A053147 For n=11 the length is 61, including 54 numbers that are not powers of 2, and 7 powers of 2, of which the largest is 64 = a(11) < a(10) = 65536.
%t A053147 Table[SelectFirst[NestWhileList[# - EulerPhi@ # &, P, # > 0 &], IntegerQ@ Log2@ # &], {P, FoldList[Times, Prime@ Range@ 30]}] (* _Michael De Vlieger_, Jun 11 2018 *)
%Y A053147 Cf. A002110, A051953.
%K A053147 nonn,more
%O A053147 1,1
%A A053147 _Labos Elemer_, Feb 28 2000
%E A053147 More terms from _Michael De Vlieger_, Jun 11 2018
%E A053147 a(41)-a(44) from _Jinyuan Wang_, Jul 12 2021