login
A225866
Numbers n such that the sum of the numbers in the Collatz (3x+1) iteration of n is a perfect square.
1
1, 3, 5, 33, 60, 245, 304, 372, 1265, 1568, 1756, 1799, 1856, 2409, 2532, 2976, 3100, 3281, 3376, 3394, 3813, 5637, 5972, 6147, 6538, 7213, 7299, 7896, 7966, 8371, 10419, 11526, 13411, 13856, 14168, 15024, 15283, 15709, 16506, 16577, 16916, 19212, 19829, 21372
OFFSET
1,2
LINKS
EXAMPLE
60 is in the sequence because 60 + 30 + 15 + 46 + 23 + 70 + 35 + 106 + 53 + 160 + 80 + 40 + 20 + 10 + 5 + 16 + 8 + 4 + 2 + 1 = 784 = 28^2.
MATHEMATICA
collatz[n_] := NestWhileList[If[EvenQ[#], #/2, 3#+1]&, n, #>1&]; Select[Range[22000], IntegerQ[Sqrt[Total[collatz[#]]]]&]
CROSSREFS
Cf. A033493.
Sequence in context: A284379 A372718 A103010 * A332704 A263295 A222484
KEYWORD
nonn
AUTHOR
Michel Lagneau, May 18 2013
STATUS
approved