cp's OEIS Frontend

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.

A113898 Numbers k such that the value pi(k), the number of primes <= k, can be obtained deleting some of the repeating adjacent digits of k.

This page as a plain text file.
%I A113898 #6 Jul 22 2021 07:52:11
%S A113898 1196,11373,22517,33597,44639,55646,60062,61159,62256,63346,63347,
%T A113898 64448,64544,64555,64577,64588,64599,64611,64655,64668,64700,64711,
%U A113898 64722,64774,64884,64992,65545,65770,65880,65881,65990,66644,67746,68841
%N A113898 Numbers k such that the value pi(k), the number of primes <= k, can be obtained deleting some of the repeating adjacent digits of k.
%C A113898 Largest value below 10^7 is given by pi(110486) = 10486.
%e A113898 pi(64668) = 6468, pi(99551) = 9551.
%t A113898 lst = {}; p=0; While[p < 10^7, n=PrimePi[ ++p]; {sp, sn}=Split/@IntegerDigits@{p, n}; If[First/@sp==First/@sn && And@@GreaterEqual@@@Transpose[Length/@#&/@{sp, sn}], AppendTo[lst, p]]]; lst
%Y A113898 Cf. A000720, A114924, A080794.
%K A113898 base,nonn
%O A113898 1,1
%A A113898 _Giovanni Resta_, Jan 29 2006