A241022 Smallest prime numbers p of length n having a decimal expansion x(1)x(2)... x(n) such that there exists an index j where x(j) = 1 and x(i) = 3 for i<>j, or 0 if no such prime exists.

13, 313, 3313, 31333, 313333, 3331333, 31333333, 333331333, 3333133333, 33331333333, 333313333333, 0, 33133333333333, 333333313333333, 1333333333333333, 33333333331333333, 333333133333333333, 3333313333333333333, 33313333333333333333, 333313333333333333333

Offset

2,1

Comments

The corresponding index of the decimal digit 1 are 1, 2, 3, 2, 2, 4, 2, 6, 5, 5, 5, 0, 3, 8, 1, 11, 7, 6, 4, 5,...(A241019).

Links

Michel Lagneau, Table of n, a(n) for n = 2..150

Maple

with(numtheory):nn:=80:T:=array(1..nn):
   for n from 2 to nn do:
     for i from 1 to n do:
     T[i]:=3:
     od:
       ii:=0:
       for j from 1 to n while(ii=0)do:
       T[j]:=1:s:=sum('T[i]*10^(n-i)', 'i'=1..n):
         if type(s, prime)=true
         then
         ii:=1: printf(`%d, `, s):
         else
         T[j]:=3:
         fi:
       od:
          if ii=0
           then
           printf(`%d, `, 0):
           else
          fi:
     od:

Mathematica

Table[Min[Select[FromDigits/@Permutations[PadRight[{1}, n, 3]], PrimeQ]], {n, 2, 30}]/.(\[Infinity]->0) (* Harvey P. Dale, Mar 04 2026 *)

Crossrefs

Cf. A241018, A241019, A241020, A241021, A241027.

Sequence in context: A119131 A217674 A360324 * A331647 A331644 A052114

Adjacent sequences: A241019 A241020 A241021 * A241023 A241024 A241025

Keyword

nonn,base

Author

Michel Lagneau, Apr 15 2014

Status

approved