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
Links
- Michel Lagneau, Table of n, a(n) for n = 2..150
Programs
-
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:
Comments