A160561 Cyclops primes with circular digits {0,6,8,9}.
809, 66089, 68099, 86069, 88069, 89069, 99089, 6680689, 6680699, 6680969, 6690689, 6690899, 6690989, 6860869, 6860989, 6860999, 6890699, 6890969, 6960869, 6980669, 6980899, 6980969, 6990889, 8660689, 8660699, 8660969
Offset: 1
Links
- Kenny Lau, Table of n, a(n) for n = 1..20000
Crossrefs
Programs
-
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 *)
Extensions
Edited and corrected by Ray Chandler and R. J. Mathar, May 20 2009
Definition simplified by Omar E. Pol, Jun 05 2009
Comments