This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A066905 #14 Jul 25 2021 10:50:31 %S A066905 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, %T A066905 16,16,16,16,16,16,16,81,81,9,25,25,25,25,25,25,25,25,25,25,100,100, %U A066905 100,25,144,25,100,25,25,144,144,25,25,144,64,64,64,64,64,25,25,64,64 %N A066905 Squares in A006577. %t A066905 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[ # ] ]& ] %Y A066905 Cf. A006577, A066773. %K A066905 nonn %O A066905 1,3 %A A066905 K. B. Subramaniam (kb_subramaniambalu(AT)yahoo.com), Dec 20 2001 %E A066905 More terms from _Dean Hickerson_, Jan 19 2002 %E A066905 Offset 1 from _Michel Marcus_, Jul 25 2021