id:A095186 - OEIS Search Results

Search: id:A095186

Displaying 1-1 of 1 results found.

page 1

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

+0
1

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 (list; graph; listen)

	OFFSET	`1,3`
	MATHEMATICA	`a[n_] := Block[{k = 1}, While[nAbs[kn^(1/n) - Round[k*n^(1/n)]] > 1, k++ ]; k]; Table[ a[n], {n, 80}] (from Robert G. Wilson v Jun 09 2004)`
	CROSSREFS	`Sequence in context: A103128 A156080 A107320 this_sequence A101402 A156251 A116458` `Adjacent sequences: A095183 A095184 A095185 this_sequence A095187 A095188 A095189`
	KEYWORD	`nonn`
	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`

page 1

Search completed in 0.002 seconds

Last modified December 5 08:23 EST 2009. Contains 170348 sequences.

AT&T Labs Research