OFFSET
1,3
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[ # ] ]& ]
CROSSREFS
KEYWORD
nonn
AUTHOR
K. B. Subramaniam (kb_subramaniambalu(AT)yahoo.com), Dec 20 2001
EXTENSIONS
More terms from Dean Hickerson, Jan 19 2002
Offset 1 from Michel Marcus, Jul 25 2021
STATUS
approved