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
Keywords
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
Comments