A118710 Smallest positive integer k such that k^k + F(n) is prime, where F(n) is the n-th Fibonacci number.
1, 1, 1, 2, 444
Offset: 1
Programs
-
Mathematica
Do[k = 1; While[ !PrimeQ[k^k + Fibonacci[n]], k++ ]; Print[k], {n, 32}]
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
Do[k = 1; While[ !PrimeQ[k^k + Fibonacci[n]], k++ ]; Print[k], {n, 32}]
Comments