|
|
A160561
|
|
Cyclops primes with circular digits {0,6,8,9}.
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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.
|
|
LINKS
|
|
|
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
|
Also intersection of A043580 (primes with circular digits) and A134809 (cyclops primes).
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|