%I #9 Apr 15 2021 19:21:42
%S 17,73,619,2077121,5070613,503890508623
%N Primes p such that pi(p) is the product of the first digit of p and the rest of the number.
%C A subsequence of A112013. There is no further term up to 3*10^10.
%C a(7) > 2.07*10^12. - _Giovanni Resta_, Feb 27 2013
%C a(7) > 10^17. - _Chai Wah Wu_, Apr 15 2021
%e 619=prime(6*19), so 619 is in the sequence.
%t Do[If[h=IntegerDigits[Prime[m]];m==h[[1]]*FromDigits[Delete[h,1]],
%t Print[Prime[m]}]],{m,355000}]
%Y Cf. A000040, A112013.
%K hard,more,nonn,base
%O 1,1
%A _Farideh Firoozbakht_, Oct 14 2009
%E a(6) from _Giovanni Resta_, Feb 27 2013
|