Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #8 Feb 27 2013 10:06:42
%S 17,73,619,1117,64591,64601,64661,2077121,5070613,8883067,2121104897,
%T 4387047283,14304478789,503890508623,1547037000637
%N Primes p such that there exists at least one number j and pi(p)= d_1 d_2 ... d_j*d_(j+1) d_(j+2) ... d_k where d_1 d_2 ...d_k is the decimal expansion of p.
%C This sequence is the prime subsequence of the sequence A112012. There is no further term up to prime(26000000).
%C Contribution from _David Wasserman_, Mar 26 2009: (Start)
%C In all terms after 64661, d_(j+1) = 0.
%C No more terms < prime(822900000) (End)
%C a(16) > 2*10^12. - _Giovanni Resta_, Feb 27 2013
%e 8883067 is in the sequence because 8883067 is prime;
%e pi(8883067)=595161 & 595161=8883*067. Note that for this term j=4.
%t Do[If[MemberQ[h=IntegerDigits[Prime[m]];k=Length[h];Table[FromDigits[Table[h[[i]], {i, j}]]*FromDigits[Table[h[[i]], {i, j+1, k}]], {j, k}], m], Print[m]], {m, 26000000}]
%Y Cf. A112012.
%K base,more,nonn
%O 1,1
%A _Farideh Firoozbakht_, Oct 09 2005
%E More terms from _David Wasserman_, Mar 26 2009
%E a(14)-a(15) from _Giovanni Resta_, Feb 27 2013