OFFSET
1,2
MATHEMATICA
Select[Range[1000], PrimeQ[(10^# + 23) / 3] &]
PROG
(Magma) [n: n in [0..400] | IsPrime((10^n+23) div 3)];
(PARI) is(n)=ispseudoprime((10^n+23)/3) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn,less,more
AUTHOR
Vincenzo Librandi, Sep 25 2016
EXTENSIONS
a(9)-a(11) from Michael S. Branicky, Aug 16 2021
a(12)-a(13) from Michael S. Branicky, May 14 2023
a(14) from Kamada data by Tyler Busby, May 05 2024
STATUS
approved