A068995 -id:A068995 - cp's OEIS frontend

A095254 a(n) = floor(concatenation(1,2,3,...,n-1,n)^(1/n)).

1, 3, 4, 5, 6, 7, 7, 7, 7, 10, 12, 14, 17, 19, 21, 24, 26, 28, 30, 31, 33, 35, 37, 38, 40, 41, 42, 44, 45, 46, 47, 49, 50, 51, 52, 53, 53, 54, 55, 56, 57, 58, 58, 59, 60, 60, 61, 62, 62, 63

Offset: 1

Amarnath Murthy, Jun 17 2004

Does lim_{n->infinity} a(n)/n converge? - Ryan Propper, Aug 29 2005

			a(4) = floor(1234^(1/4)) = floor(5.926...) = 5.

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Cf. A068995, A095253.

s = ""; Do[s = s <> ToString[n]; k = ToExpression[s]; Print[Floor[k^(1/n)]], {n, 1, 50}] (* Ryan Propper, Aug 29 2005 *)
Table[Floor[Surd[FromDigits[Flatten[IntegerDigits/@Range[n]]],n]],{n,60}] (* Harvey P. Dale, Sep 26 2016 *)

More terms from Ryan Propper, Aug 29 2005

A095253 a(n) = floor(concatenation(n,(n-1),...,3,2,1)^(1/n)).

Original entry on oeis.org

1, 4, 6, 8, 8, 9, 9, 9, 9, 10, 12, 14, 17, 19, 22, 24, 26, 28, 30, 32, 34, 36, 38, 39, 41, 42, 44, 45, 46, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 59, 60, 61, 61, 62, 63, 63, 64, 65, 65, 66, 66, 67, 67, 68, 68, 69, 69, 70, 70, 71, 71, 71, 72, 72, 72

Offset: 1

Amarnath Murthy, Jun 17 2004

			a(4) = floor(4321^(1/4)) = 8.

Cf. A068995, A095254.

Table[Floor[Surd[FromDigits[Flatten[IntegerDigits/@Range[n,1,-1]]],n]],{n,80}] (* Harvey P. Dale, Apr 21 2014 *)

a(n) = {my(t=n); forstep(k=n-1, 1, -1, t=t*10^#Str(k)+k); sqrtnint(t, n); } \\ Jinyuan Wang, Mar 22 2020

More terms from Harvey P. Dale, Apr 21 2014

A095252 a(n) = floor(sqrt{concatenation n,(n-1),...,3,2,1}).

Original entry on oeis.org

1, 4, 17, 65, 233, 808, 2766, 9362, 31426, 104822, 1054033, 11005043, 114547418, 1188747707, 12305003905, 127088210000, 1310019623181, 13480213329659, 138498072735374, 1420979139942389, 14560878466498901, 149036972532711329, 1523880579042109897

Offset: 1

Amarnath Murthy, Jun 17 2004

a(n) = floor(sqrt(A000422(n))). - Stefan Steinerberger, May 05 2007

			a(4) = floor(sqrt(4321)) = 65.

Cf. A068995.

a:= n-> floor(sqrt(parse(cat((n-i)$i=0..n-1)))):
seq(a(n), n=1..30);  # Alois P. Heinz, Aug 26 2015

Table[Floor[Sqrt[FromDigits[Flatten[Table[IntegerDigits[i],{i,n,1,-1}]]]]],{n,1,25}] (* Stefan Steinerberger, May 05 2007 *)
Table[Floor[Sqrt[FromDigits[Flatten[IntegerDigits/@Range[n,1,-1]]]]],{n,25}] (* Harvey P. Dale, Jul 22 2024 *)

More terms from Stefan Steinerberger, May 05 2007

cp's OEIS Frontend

A095254 a(n) = floor(concatenation(1,2,3,...,n-1,n)^(1/n)).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A095253 a(n) = floor(concatenation(n,(n-1),...,3,2,1)^(1/n)).

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

PARI

Extensions

A095252 a(n) = floor(sqrt{concatenation n,(n-1),...,3,2,1}).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Maple

Mathematica

Extensions