OFFSET
1,2
LINKS
Jens Kruse Andersen, Table of n, a(n) for n = 1..10000
EXAMPLE
Pi = 3.1415926535897932384626...
.....|....|...|......|||........
_e = 2.7182818284590452353602...
MATHEMATICA
Module[{digs=350, p, e, th}, p=RealDigits[Pi, 10, digs][[1]]; e=RealDigits[E, 10, digs][[1]]; th = Thread[{p, e}]; Position[If[AllTrue[#, PrimeQ], 1, 0]&/@th, 1]]//Flatten (* Harvey P. Dale, Jan 28 2023 *)
PROG
(PARI) \p 1000
e=Vec(Str(exp(1)/10)); p=Vec(Str(Pi/10)); for(n=1, #e-9, if(isprime(eval(e[n+2])) && isprime(eval(p[n+2])), print1(n", "))) \\ Jens Kruse Andersen, Jul 23 2014
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Philip Mizzi, May 28 2014
EXTENSIONS
Definition clarified by Harvey P. Dale, Jan 28 2023
STATUS
approved