OFFSET
1,1
REFERENCES
C. Mauduit, J. Rivat: Sur un problème de Gelfond: la somme des chiffres des nombres premiers, Annals of Mathematics, Vol. 171, No. 3, 1591-1646, 2010
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Christian Mauduit, Joël Rivat, Sur un problème de Gelfond: la somme des chiffres des nombres premiers
PROG
(Haskell)
import Data.List (delete)
a247797 n = a247797_list !! (n-1)
a247797_list = f 1 $ zip a000040_list a007605_list where
f q' vws = g vws where
g ((p, q):pqs) = if gcd q q' == 1
then p : f q (delete (p, q) vws) else g pqs
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Nov 25 2014
STATUS
approved