OFFSET
1,1
COMMENTS
Digits are in descending order beginning with 1 and after 0 comes 9.
Terms must end in 3, 5 or 9. - Michael S. Branicky, May 11 2023
EXAMPLE
5 is a term since 10987 is a prime.
MAPLE
filter:= proc(n) local i; isprime( add(10^(n-1-i)*(1-i mod 10), i=0..n-1)) end proc:
select(filter, [$1..4000]); # Robert Israel, Mar 08 2023
MATHEMATICA
fQ[n_] := PrimeQ@ FromDigits@ Mod[2-Range@n, 10]; lst = {}; Do[ If[fQ@n, AppendTo[lst, n]; Print@n], {n, 6000}]; lst
CROSSREFS
KEYWORD
nonn,base,hard,more
AUTHOR
Robert G. Wilson v, Jul 05 2006
EXTENSIONS
Name corrected by Robert Israel, Mar 08 2023
a(10)-a(12) from Michael S. Branicky, May 11 2023
STATUS
approved