|
%I #24 Feb 19 2023 16:20:35
%S 2,4,10,22,34,46,58,67,79,94,103,139,145,157,166,169,172,181,190,193,
%T 199,205,211,214,229,277,283,295,298,307,313,349,367,373,391,394,409,
%U 421,433,439,463,466,478,505,517,523,529,535,541,547,556,559,571,577
%N Primes with digits in {0,1,2} taken as base 3 and converted to base 10.
%C Equivalently: terms of A036953 read in base 3 (and written in base 10). - _M. F. Hasler_, Jul 25 2015
%C Equivalently, k such that A007089(k), read literally as a decimal number, is a prime. - _N. J. A. Sloane_, Feb 17 2023
%H Iain Fox, <a href="/A036954/b036954.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Mo#MWP">Index entries for sequences related to Most Wanted Primes video</a>
%F a(n) == 1 (mod 3) for all n > 1. - _M. F. Hasler_, Jul 25 2015
%e a(n) = 313 is 102121{3}, and 102121{10} is prime.
%t FromDigits[#,3]&/@Select[Tuples[{0,1,2},6],PrimeQ[FromDigits[#]]&] (* _Harvey P. Dale_, Mar 27 2021 *)
%o (PARI) is(n)=(n%3==1||n==2)&&isprime((n=digits(n,3))*vectorv(#n,i,10^(#n-i))) \\ _M. F. Hasler_, Jul 25 2015
%Y Cf. A036952-A036964.
%Y Indices of primes in A007089.
%K nonn,base
%O 1,1
%A _Patrick De Geest_, Jan 04 1999
%E Offset corrected to 1 and minor edits by _M. F. Hasler_, Jul 25 2015
|
