OFFSET
0,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 0..115
Reinhard Zumkeller, Illustration of initial terms
PROG
(Haskell)
import Data.List (elemIndex)
import Data.Maybe (fromJust)
a198277 n = a000040 . (+ 1) . fromJust $ elemIndex n a067432_list
(PARI) ct(n)=sumdiv(n+1, d, if(d^2>n, 0, isprime(d-1)&&isprime(n\d)))
v=vector(60); forprime(p=2, 1e9, t=ct(p); if(t && !v[t], v[t]=p; print(t" "p))); v \\ with 0's for unknown; Charles R Greathouse IV, Jul 24 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Oct 23 2011
EXTENSIONS
a(27)-a(33) from Donovan Johnson, Oct 24 2011
a(34)-a(41) from Charles R Greathouse IV, Jul 24 2013
STATUS
approved