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.

A275532 Possible values for sum of numbers in Collatz trajectory (A033493), sorted into ascending order.

This page as a plain text file.
%I A275532 #7 Sep 08 2022 08:46:17
%S A275532 1,3,7,15,31,36,46,49,55,63,66,67,91,106,119,127,139,145,148,186,190,
%T A275532 197,214,235,248,255,259,274,281,288,301,302,316,325,330,339,346,357,
%U A275532 386,393,399,413,427,442,452,465,497,498,500,505,509,511,519,535,540,557
%N A275532 Possible values for sum of numbers in Collatz trajectory (A033493), sorted into ascending order.
%C A275532 Values a(n) such that a(n) = A033493(x) = A033493(y)  for distinct numbers x and y: 442, 609, 633, 724, 904, 925, ...
%t A275532 Take[#, 56] &@ Union@ Table[Total@ FixedPointList[Which[# == 1, 1, OddQ@ #, 3 # + 1, True, #/2] &, n] - 1, {n, 10^3}] (* _Michael De Vlieger_, Aug 02 2016 *)
%o A275532 (Magma) Set(Sort([&+[k eq 1 select n else IsOdd(Self(k-1)) and not IsOne(Self(k-1)) select 3*Self(k-1)+1 else Self(k-1) div 2: k in [1..5*n]]: n in [1..2^10] | &+[k eq 1 select n else IsOdd(Self(k-1)) and not IsOne(Self(k-1)) select 3*Self(k-1)+1 else Self(k-1) div 2: k in [1..5*n]] le 2^10]))
%Y A275532 Cf. A033493, A275531.
%K A275532 nonn
%O A275532 1,2
%A A275532 _Jaroslav Krizek_, Jul 31 2016