OFFSET
1,1
COMMENTS
A112013 is the prime subsequence of this sequence.
EXAMPLE
pi(16)=1*6 so j=1; pi(342)=34*2 so j=2; pi(12012)=120*12 so j=3;
pi(64541)=6454*1 so j=4, etc.
MATHEMATICA
Select[Range[10, 200000], MemberQ[h=IntegerDigits[ # ]; k=Length[h]; Table[FromDigits[Table[h[[i]], {i, j}]]*FromDigits[Table[h[[i]], {i, j+1, k}]], {j, k}], PrimePi[ # ]] &]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Farideh Firoozbakht, Sep 04 2005
STATUS
approved