The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A095186 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A095186

a(n) = least k such that k*n^(1/n) differs from an integer by at most 1/n.
(history; published version)

#7 by N. J. A. Sloane at Thu Oct 19 03:14:31 EDT 2017

EXTENSIONS

More terms from _Don Reble (djr(AT)nk.ca), _, Jun 04 2004

Discussion

Thu Oct 19

03:14

OEIS Server: https://oeis.org/edit/global/2703

#6 by Jon E. Schoenfield at Fri Jul 24 23:27:20 EDT 2015

STATUS

editing

approved

#5 by Jon E. Schoenfield at Fri Jul 24 23:27:16 EDT 2015

MATHEMATICA

a[n_] := Block[{k = 1}, While[n*Abs[k*n^(1/n) - Round[k*n^(1/n)]] > 1, k++ ]; k]; Table[ a[n], {n, 80}] (from * _Robert G. Wilson v _, Jun 09 2004 *)

STATUS

approved

editing

#4 by N. J. A. Sloane at Thu Dec 05 19:56:51 EST 2013

AUTHOR

_Amarnath Murthy (amarnath_murthy(AT)yahoo.com), _, Jun 02 2004

Discussion

Thu Dec 05

19:56

OEIS Server: https://oeis.org/edit/global/2075

#3 by Russ Cox at Fri Mar 30 17:31:01 EDT 2012

EXTENSIONS

More terms from _Robert G. Wilson v (rgwv(AT)rgwv.com), _, Jun 09 2004

Discussion

Fri Mar 30

17:31

OEIS Server: https://oeis.org/edit/global/156

#2 by N. J. A. Sloane at Wed Sep 22 03:00:00 EDT 2004

MATHEMATICA

a[n_] := Block[{k = 1}, While[n*Abs[k*n^(1/n) - Round[k*n^(1/n)]] > 1, k++ ]; k]; Table[ a[n], {n, 80}] (from RGWv Robert G. Wilson v Jun 09 2004)

KEYWORD

nonn,new

nonn

#1 by N. J. A. Sloane at Sat Jun 12 03:00:00 EDT 2004

NAME

a(n) = least k such that k*n^(1/n) differs from an integer by at most 1/n.

DATA

1, 1, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 9, 5, 5, 5, 11, 6, 6, 6, 13, 13, 7, 7, 7, 15, 23, 8, 8, 25, 17, 9, 9, 9, 28, 19, 10, 10, 10, 31, 21, 11, 11, 11, 34, 23, 35, 12, 12, 37, 25, 38, 13, 13, 13, 27, 27, 14, 14, 14, 43, 29, 44, 15, 15, 46, 31, 47, 16, 16, 16, 49, 33, 50, 17, 17, 69, 35, 35

OFFSET

1,3

MATHEMATICA

a[n_] := Block[{k = 1}, While[n*Abs[k*n^(1/n) - Round[k*n^(1/n)]] > 1, k++ ]; k]; Table[ a[n], {n, 80}] (from RGWv Jun 09 2004)

KEYWORD

nonn,new

AUTHOR

Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jun 02 2004

EXTENSIONS

More terms from Don Reble (djr(AT)nk.ca), Jun 04 2004

More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 09 2004

STATUS

approved