OFFSET
1,1
COMMENTS
This excludes numbers == 2 mod 3 (A016789).
EXAMPLE
26 is a member as the three numbers 126, 216 and 261 obtained by placing a 1 at all possible places are composite.
MAPLE
anz := 0:for i from 1 to 1500 do b := convert(i, base, 10):s := sum(b[l], l=1..nops(b)): if((s mod 3)<>2) then ok := true:for j from 0 to nops(b) do q := sum(b[k]*10^(k-1), k=1..j):q := q+10^(j):q := q+sum(b[k]*10^k, k=j+1..nops(b)): if(isprime(q)) then ok := false:fi:od: if(ok=true) then anz := anz+1:a[anz] := i:fi:fi:od:seq(a[l], l=1..anz); # Sascha Kurz, Jan 26 2003
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, May 11 2002
EXTENSIONS
More terms from Olaf Voß, Jan 21 2003
STATUS
approved