OFFSET
1,1
COMMENTS
The sequence is probably infinite.
The sequence A134809 restricted to cases with digits 6, 8 or 9 (see A001743) at the off-center positions.
Primes in A274765. - Omar E. Pol, Jul 06 2016
Each term is equal to 9 mod 10. - Harvey P. Dale, Feb 02 2021
LINKS
Kenny Lau, Table of n, a(n) for n = 1..20000
MATHEMATICA
Select[Prime@ Range[10^6], And[OddQ@ Length@ #, Times @@ Boole@ Map[MemberQ[{0, 6, 8, 9}, #] &, Union@ #] == 1, Part[#, Ceiling[Length[#]/2]] == 0, Count[#, 0] == 1] &@ IntegerDigits@ # &] (* Michael De Vlieger, Jul 05 2016 *)
Table[Select[FromDigits/@(Flatten[Join[{Take[#, Length[#]/2], 0, Take[#, -Length[#]/2]}]]&/@Tuples[{6, 8, 9}, n]), PrimeQ], {n, 2, 6, 2}]//Flatten (* Harvey P. Dale, Feb 02 2021 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Ki Punches, May 19 2009
EXTENSIONS
Edited and corrected by Ray Chandler and R. J. Mathar, May 20 2009
Definition simplified by Omar E. Pol, Jun 05 2009
STATUS
approved