id:A094226 - OEIS Search Results

Search: id:A094226

Displaying 1-1 of 1 results found.

page 1

Let s=(Log[Prime[n]]-Log[n])/Log[n-1], then a(n) = Floor[n*(n-1)^s.

+0
1

4, 6, 11, 13, 17, 19, 23, 28, 30, 36, 41, 43, 46, 53, 59, 61, 67, 71, 72, 79, 83, 88, 97, 101, 103, 106, 108, 113, 127, 130, 137, 138, 149, 151, 156, 163, 167, 173, 178, 181, 191, 193, 197, 198, 211, 223, 227, 229, 232, 239, 240, 250, 257, 262, 268, 271, 276, 280 (list; graph; listen)

	OFFSET	`3,1`
	COMMENT	`A prime-like power sequence.`
	MATHEMATICA	`fa[n_]=(Log[Prime[n]]-Log[n])/Log[n-1] a=Table[Floor[N[n*(n-1)^fa[n]]], {n, 3, 200}]`
	CROSSREFS	`Sequence in context: A031271 A126591 A031452 this_sequence A047288 A096833 A002732` `Adjacent sequences: A094223 A094224 A094225 this_sequence A094227 A094228 A094229`
	KEYWORD	`nonn`
	AUTHOR	`Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 28 2004`

page 1

Search completed in 0.002 seconds

Last modified August 19 23:53 EDT 2008. Contains 142930 sequences.

AT&T Labs Research