cp's OEIS Frontend

A192545 Numbers such that all numbers are composite when replacing exactly one digit with another, except the leading digit with zero.

%I A192545 #30 Jan 23 2018 07:01:05
%S A192545 200,202,204,205,206,208,320,322,324,325,326,328,510,512,514,515,516,
%T A192545 518,530,532,534,535,536,538,620,622,624,625,626,628,840,842,844,845,
%U A192545 846,848,890,892,894,895,896,898,1070,1072,1074,1075,1076,1078,1130,1132
%N A192545 Numbers such that all numbers are composite when replacing exactly one digit with another, except the leading digit with zero.
%C A192545 A048853(a(n)) = 0;
%C A192545 Intersection of this sequence and A000040 is A158124. - _Evgeny Kapun_, Dec 13 2016
%C A192545 If the last digit of an element is 0, 2, 4, 5, 6 or 8, then replacing it with 0, 2, 4, 5, 6 or 8 also yields an element. - _David A. Corneth_ and corrected by _Evgeny Kapun_, Dec 13 2016
%H A192545 Reinhard Zumkeller, <a href="/A192545/b192545.txt">Table of n, a(n) for n = 1..10000</a>
%t A192545 Select[Range@ 1200, Function[w, Total@ Boole@ Flatten@ Map[Function[d, PrimeQ@ FromDigits@ ReplacePart[w, d -> #] & /@ If[d == 1, #, Prepend[#, 0]] &@ Range@ 9], Range@ Length@ w] == 0]@ IntegerDigits@ # &] (* _Michael De Vlieger_, Dec 13 2016 *)
%o A192545 (Haskell)
%o A192545 import Data.List (elemIndices)
%o A192545 a192545 n = a192545_list !! (n-1)
%o A192545 a192545_list = map (+ 1) $ elemIndices 0 $ map a048853 [1..]
%Y A192545 Subsequences: A050249, A118118, A143641, A158124, A158125.
%K A192545 nonn,base
%O A192545 1,1
%A A192545 _Reinhard Zumkeller_, Jul 05 2011