login
A066905
Squares in A006577.
1
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,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
Sequence in context: A070535 A070579 A278829 * A302683 A302518 A070567
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