A036954 - OEIS

%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