|
|
A153166
|
|
Numbers n with property that 6n+1 is prime and uses only digits 2 and 3.
|
|
3
|
|
|
37, 5372, 5387, 5537, 38722, 38887, 53872, 388722, 388887, 537037, 537222, 538887, 555372, 3703887, 3705372, 3705387, 3870372, 3870537, 3887037, 5387037, 5537037, 37220537, 37222222, 38705372, 38705537, 38870372, 38870537, 53703887
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
pd23Q[n_]:=Module[{c=6n+1}, PrimeQ[c]&&Union[IntegerDigits[c]]=={2, 3}]; Select[ Range[ 54000000], pd23Q] (* Harvey P. Dale, Feb 08 2013 *)
Table[Select[(#-1)/6&/@Select[FromDigits/@Tuples[{2, 3}, n], OddQ[#] && PrimeQ[ #]&], IntegerQ], {n, 9}]//Flatten (* Harvey P. Dale, Oct 04 2016 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|