A066905 Squares in A006577.

0, 1, 16, 9, 9, 4, 16, 16, 16, 9, 9, 9, 25, 25, 25, 25, 25, 100, 121, 36, 36, 36, 36, 49, 16, 16, 16, 16, 16, 16, 16, 16, 81, 81, 9, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 100, 100, 100, 25, 144, 25, 100, 25, 25, 144, 144, 25, 25, 144, 64, 64, 64, 64, 64, 25, 25, 64, 64

Offset: 1

Author

K. B. Subramaniam (kb_subramaniambalu(AT)yahoo.com), Dec 20 2001

Keywords

• nonn

Crossrefs

Cf. A006577, A066773.

Programs

Mathematica

steps[ n_ ] := For[ nn=n; ct=0, True, ct++, If[ nn==1, Return[ ct ] ]; nn=If[ EvenQ[ nn ], nn/2, 3nn+1 ] ]; Select[ steps/@Range[ 1, 1000 ], IntegerQ[ Sqrt[ # ] ]& ]

Extensions

More terms from Dean Hickerson, Jan 19 2002

Offset 1 from Michel Marcus, Jul 25 2021