OFFSET
1,1
COMMENTS
We label the positions in 3.14159... so that 1 is in position 1, 4 in position 2, 1 in position 3, 5 in position 4, and so on.
EXAMPLE
The first 19 in the decimal expansion of Pi (see A000796) starts in position 37, which is a prime.
MATHEMATICA
pos_in_Pi={1, 6, 9, 2, 4, 7, 13, 11, 5, 49, 94, 148, 110, 1, 3, ....};
s={}; Do[If[PrimeQ[x]&&PrimeQ[pos_in_Pi[[x]]], AppendTo[s, pos_in_Pi]], {x, Length[v]}]; s
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vicente Izquierdo Gomez, Sep 01 2012
EXTENSIONS
Edited by N. J. A. Sloane, Sep 09 2012
STATUS
approved