Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A224843
Primes p = prime(k) such that the representation of p can be split in two parts whose sum is k.
1
131, 64279, 64319, 64483, 64513, 64621, 10708553, 211689713, 1473469351, 14655469571, 16744452731, 20921000803, 1868659342061, 2075982751859, 2490551934503, 3112244742829
OFFSET
1,1
COMMENTS
a(17) > 4*10^12.
EXAMPLE
prime(20+921000803) = 20921000803.
MATHEMATICA
Reap[Do[k = 1; p = Prime@n; While[(k *= 10) < p, If[Mod[p, k] + Floor[p/k] == n, Sow@p]], {n, 9000}]][[2, 1]]
CROSSREFS
Sequence in context: A239252 A200736 A287071 * A033530 A222876 A267720
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, Jul 22 2013
STATUS
approved