cp's OEIS Frontend

A276694 Where records occur in A209252.

%I A276694 #19 May 21 2025 15:10:11
%S A276694 0,11,13,101,107,177,357,1001,1011,10759,11487,42189,113183,344253,
%T A276694 1851759,4787769,15848679,139367847,240889077,1167555543,111738007953
%N A276694 Where records occur in A209252.
%C A276694 Except for the first term, all terms are coprime to 10. - _Chai Wah Wu_, Sep 19 2016
%p A276694 with(numtheory): P:= proc(q) local d,j,k,n,t,x; x:=4; print(0);
%p A276694 for n from 1 to q do d:=ilog10(n)+1; t:=0;
%p A276694 for k from 0 to d-1 do for j from 0 to 9 do
%p A276694 if isprime(trunc(n/10^(k+1))*10^(k+1)+j*10^k+(n mod 10^k))
%p A276694 then t:=t+1; fi; od; od;
%p A276694 if isprime(n) then if t-d>x then x:=t-d; print(n); fi; else
%p A276694 if t>x then x:=t; print(n); fi; fi; od; end: P(10^9);
%Y A276694 Cf. A000040, A209252.
%K A276694 nonn,base,more
%O A276694 1,2
%A A276694 _Paolo P. Lava_, Sep 14 2016
%E A276694 a(18)-a(19) from _Chai Wah Wu_, Sep 19 2016
%E A276694 a(20) from _Michael S. Branicky_, Apr 21 2025
%E A276694 a(21) from _Michael S. Branicky_, May 21 2025