login
A070328
Numbers in which inserting, prefixing or suffixing a 1 anywhere yields only composite numbers.
2
2, 5, 8, 11, 12, 14, 16, 17, 20, 22, 23, 26, 29, 30, 32, 34, 35, 36, 38, 41, 44, 45, 47, 48, 50, 53, 55, 56, 58, 59, 61, 62, 65, 68, 71, 72, 74, 77, 78, 80, 83, 84, 85, 86, 87, 89, 90, 92, 95, 96, 98, 100, 101, 104, 107, 108, 110, 111, 112, 113, 114, 116, 119, 121, 122
OFFSET
1,1
LINKS
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 2 to 1500 do b := convert(i, base, 10):s := sum(b[l], l=1..nops(b)): 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:od:seq(a[l], l=1..anz);
MATHEMATICA
Select[Range[200], AllTrue[FromDigits/@Table[Insert[IntegerDigits[#], 1, n], {n, IntegerLength[ #]+ 1}], CompositeQ]&] (* Harvey P. Dale, Nov 14 2023 *)
CROSSREFS
Sequence in context: A143263 A327138 A102624 * A124934 A125217 A277574
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, May 11 2002
EXTENSIONS
Corrected and extended by Sascha Kurz, Jan 26 2003
STATUS
approved