OFFSET
1,2
COMMENTS
If it exists, a(10) > 50000.
MATHEMATICA
Select[Range[1, 13000], PrimeQ[((9^#+9*#) / 9)]&] (* Vincenzo Librandi, Jul 04 2025 *)
PROG
(PARI) is(n) = ispseudoprime(9^(n-1)+n)
(Magma) [n: n in [1..130] |IsPrime ((9^n + 9*n) div 9)]; // Vincenzo Librandi, Jul 04 2025
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Hugo Pfoertner, Feb 27 2024
STATUS
approved
