A277341 a(n) is the nearest integer to prime(n)^prime(n+1)/prime(n+1)^prime(n).
1, 2, 5, 101, 19, 873, 44, 3455, 716066, 122, 3682385, 42002, 239, 74612, 38038256, 75356321, 487, 168475200, 414001, 701, 473945370, 786827, 996734911, 1854156102515, 1757001, 1408, 2223586, 1578, 2777435, 102598699146418244788937, 5067957, 14314401926, 2577, 172311367283303079, 3045
Offset: 1
Keywords
Examples
For n = 4, we have ((prime(4)^prime(5))/(prime(5)^prime(4))) = (7^11)/(11^7) = 1977326743/19487171 = 101.4681271..., and 101 is the nearest integer to 101.4681271..., so a(4) = 101.
Links
- Daniel Suteu, Table of n, a(n) for n = 1..10000 (first 1000 terms from Vincenzo Librandi)
- Rémy Sigrist, Colored logarithmic scatterplot of (n, a(n)) for n = 1..10000 (where the color is function of prime(n+1)-prime(n))
- Rémy Sigrist, Colored logarithmic scatterplot of (n, a(n)) for n = 1..100000 (where the color is function of prime(n+1)-prime(n))
- Daniel Suteu, Perl program
Programs
-
Magma
[Round((NthPrime(n)^NthPrime(n+1))/(NthPrime(n+1)^NthPrime(n))): n in [1..40]]; // Vincenzo Librandi Oct 18 2016
-
Mathematica
Table[Round[((Prime[n]^Prime[n + 1])/(Prime[n + 1]^Prime[n]))], {n, 35}] (* Michael De Vlieger, Oct 14 2016 *) Round[(#[[1]]^#[[2]])/#[[2]]^#[[1]]]&/@Partition[Prime[Range[40]],2,1] (* Harvey P. Dale, Jun 29 2022 *)
-
PARI
a(n) = round(prime(n)^prime(n+1)/prime(n+1)^prime(n)); \\ Michel Marcus, Jan 13 2018
Comments