login
A107426
Prime numbers p such that the sum of the terms of the continued fraction for prime(p)/p is prime.
0
2, 5, 7, 13, 17, 23, 31, 37, 41, 47, 71, 73, 89, 101, 109, 131, 197, 211, 271, 283, 367, 379, 443, 457, 461, 599, 661, 743, 773, 821, 823, 827, 911, 929, 941, 971, 977, 983, 991, 1013, 1033, 1051, 1093, 1163, 1181, 1237, 1259, 1289, 1291, 1307, 1321, 1409
OFFSET
1,1
COMMENTS
Prime numbers appearing in A107898.
LINKS
Eric Weisstein's World of Mathematics, Continued Fraction.
EXAMPLE
17 is in this sequence because the 17th prime is 59, 59/17 = 3 + 1/(2 + 1/8), terms of continued fraction are [3; 2, 8], and sum of terms is prime number 13.
MATHEMATICA
bb={}; Do[n=Prime[m]; If[PrimeQ[Plus@@ContinuedFraction[Prime[n]/n]], bb=Append[bb, n]], {m, 300}]; bb
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 26 2005
STATUS
approved