OFFSET
1,1
COMMENTS
REFERENCES
L. Euler, Nouveaux Mémoires de l'Académie royale des Sciences, 1772, p. 36.
LINKS
Peter Rowlett, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
PROG
(C++)
#include <iostream>
using namespace std;
bool isPrime(int number){
if(number < 2) return false;
if(number == 2) return true;
if(number % 2 == 0) return false;
for(int i=3; (i*i)<=number; i+=2){
if(number % i == 0) return false;
}
return true;
}
int main() {
int x;
for (int p=2; p<100000000; p++) {
if (isPrime(p)) {
x=1;
while (isPrime(x*x+x+p)) {
x++;
}
if (x>1) {
cout << x << ", ";
}
}
}
return 0;
}
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Rowlett, Apr 11 2024
STATUS
approved