|
%I #20 Nov 15 2016 12:13:32
%S 37,5387,537037,37220537,38870537,3703870537,5555555387,55538720387,
%T 370553872037,370555370387,372203887037,387037038887,387203705387,
%U 388887053887,537203703887,538705553887,538722205537,538870538887,553703722037,553720538887
%N Primes p with property that 6p+1 is prime and uses only digits 2 and 3.
%H Bill Hannaford and Harvey P. Dale, <a href="/A153168/b153168.txt">Table of n, a(n) for n = 1..1500</a> (first 40 terms from Bill Hannaford).
%t (#-1)/6&/@Select[Flatten[Table[FromDigits/@Tuples[{2,3},n],{n,13}]], AllTrue[ {#,(#-1)/6},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Dec 15 2015 *)
%o (PARI) okdig(n) = {digs = Set(digits(n)); (#digs == 2) && (digs[1] == 2) && (digs[2] == 3);}
%o lista(nn) = {p = 2; until (p > nn, if (isprime(q=6*p+1) && okdig(q), print1(p, ", ")); p = nextprime(p+1););} \\ _Michel Marcus_, Oct 15 2013
%Y Cf. A153166 Numbers n with property that 6n+1 is prime and uses only digits 2 and 3.
%K nonn,base
%O 1,1
%A _Zak Seidov_, Dec 20 2008
%E a(6)-a(40) from _Bill Hannaford_, Nov 08 2013
|
