This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A335072 #31 Jul 23 2023 01:53:47
%S A335072 33,34,36,38,43,44,46,48,63,64,66,68,83,84,86,88,124,142,144,148,184,
%T A335072 204,244,308,320,380,424,442,444,448,484,544,608,620,680,724,742,744,
%U A335072 804,844,908,980,1104,1140,2284,2728,2824,3608,3908,4440,4444,4588,4644
%N A335072 Numbers with property that if you remove any digit and subtract 1 the result is prime.
%H A335072 Harvey P. Dale, <a href="/A335072/b335072.txt">Table of n, a(n) for n = 1..363</a> (all terms up to 10 million)
%e A335072 33 is a term: remove any digit to be left with 3. Subtract 1 gives 2, which is prime.
%e A335072 4444 is a term: remove any digit to be left with 444. Subtract 1 to be left with 443, which is prime.
%e A335072 28 is not a term: remove any digit to be left with 2 or 8. Subtract 1 to be left with 1 or 7. 1 is not prime.
%p A335072 q:= n-> (s-> andmap(i-> isprime(parse(cat(0,s[1..i-1],
%p A335072 s[i+1..-1]))-1), [$1..length(s)]))(""||n):
%p A335072 select(q, [$1..5000])[]; # _Alois P. Heinz_, May 30 2020
%t A335072 rdpQ[x_]:=AllTrue[FromDigits/@Table[Drop[IntegerDigits[x],{n}],{n,IntegerLength[ x]}]-1,PrimeQ]; Select[Range[4700],rdpQ] (* _Harvey P. Dale_, Aug 21 2020 *)
%Y A335072 Cf. A034895.
%K A335072 nonn,base
%O A335072 1,1
%A A335072 _John Ryder_, May 30 2020