login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Numbers in which inserting, prefixing or suffixing a 1 anywhere yields only composite numbers.
2

%I #17 Nov 14 2023 13:10:46

%S 2,5,8,11,12,14,16,17,20,22,23,26,29,30,32,34,35,36,38,41,44,45,47,48,

%T 50,53,55,56,58,59,61,62,65,68,71,72,74,77,78,80,83,84,85,86,87,89,90,

%U 92,95,96,98,100,101,104,107,108,110,111,112,113,114,116,119,121,122

%N Numbers in which inserting, prefixing or suffixing a 1 anywhere yields only composite numbers.

%H Harvey P. Dale, <a href="/A070328/b070328.txt">Table of n, a(n) for n = 1..1000</a>

%e 26 is a member as the three numbers 126, 216 and 261 obtained by placing a 1 at all possible places are composite.

%p 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);

%t Select[Range[200],AllTrue[FromDigits/@Table[Insert[IntegerDigits[#],1,n],{n,IntegerLength[ #]+ 1}],CompositeQ]&] (* _Harvey P. Dale_, Nov 14 2023 *)

%Y Cf. A002808, A070329.

%K base,nonn

%O 1,1

%A _Amarnath Murthy_, May 11 2002

%E Corrected and extended by _Sascha Kurz_, Jan 26 2003