|
| |
|
|
A095252
|
|
a(n) = Floor[ {concatenation n,(n-1),...,3,2,1}^(1/2)].
|
|
0
| |
|
|
1, 4, 17, 65, 233, 808, 2766, 9362, 31426, 104822, 1054033, 11005043, 114547418, 1188747707, 12305003905, 127088210000, 1310019623181, 13480213329659, 138498072735374, 1420979139942389, 14560878466498901
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| 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 * A181410 A102207 A202555
Adjacent sequences: A095249 A095250 A095251 * 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
|
| |
|
|
