1,2

The first 3 senary digits of Pi (A004605) are 305 = 113 in decimal, which is a prime.

Do[ If[ PrimeQ[ FromDigits[ First[ RealDigits[Pi, 6, n]], 6]], Print[n]], {n, 1, 2585} ]

Cf. A004605.

Sequence in context: A042267 A054747 A054950 this_sequence A097802 A119200 A092416

Adjacent sequences: A065990 A065991 A065992 this_sequence A065994 A065995 A065996

base,bref,nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 10 2001