|
Search: id: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, 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
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
COMMENT
|
This series is very dense as n increases. All squares from n=0 to 16,18 have been located. - Randall L. Rathbun, Jan 17 2002
|
|
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
|
Cf. A006577, A066773.
Sequence in context: A153724 A070535 A070579 this_sequence A070567 A070688 A103167
Adjacent sequences: A066902 A066903 A066904 this_sequence A066906 A066907 A066908
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
K.B.Subramaniam (kb_subramaniambalu(AT)yahoo.com), Dec 20 2001
|
|
EXTENSIONS
|
More terms from Dean Hickerson (dean.hickerson(AT)yahoo.com), Jan 19 2002
|
|
|
Search completed in 0.002 seconds
|
