|
Search: id:A095252
|
|
|
| A095252 |
|
a(n) = Floor[ {concatenation n,(n-1),...,3,2,1}^(1/2)]. |
|
+0
1
|
|
| 1, 4, 17, 65, 233, 808, 2766, 9362, 31426, 104822, 1054033, 11005043, 114547418, 1188747707, 12305003905, 127088210000, 1310019623181, 13480213329659, 138498072735374, 1420979139942389, 14560878466498901
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Floor[A000422(n)^(1/2)]. - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), May 05 2007
|
|
EXAMPLE
|
a(4) = Floor[4321^(1/2)] = 65.
|
|
MATHEMATICA
|
Table[Floor[Sqrt[FromDigits[Flatten[Table[IntegerDigits[i], {i, n, 1, -1}]]]]], {n, 1, 25}] - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), May 05 2007
|
|
CROSSREFS
|
Cf. A068995.
Sequence in context: A122231 A119916 A005784 this_sequence A102207 A045992 A046723
Adjacent sequences: A095249 A095250 A095251 this_sequence A095253 A095254 A095255
|
|
KEYWORD
|
base,easy,nonn,less
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jun 17 2004
|
|
EXTENSIONS
|
More terms from Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), May 05 2007
|
|
|
Search completed in 0.002 seconds
|
