OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
Sum of the digits of prime(25) = 97 is 16, sum of the digits of prime(26) = 101 is 2. 16+2 = 18, which divides 97+101 = 198 = 11*18. Hence prime(25) = 97 is a term.
MAPLE
q:= 2: sq:= 2:
R:= NULL: count:= 0:
while count < 100 do
p:= q; sp:= sq;
q:= nextprime(q); sq:= convert(convert(q, base, 10), `+`);
if (p+q) mod (sp+sq) = 0 then
R:= R, p; count:= count+1;
fi
od:
R; # Robert Israel, Jan 15 2023
MATHEMATICA
Prime[ Select[ Range[ 155 ], Mod[ Prime[ # ]+Prime[ #+1 ], Apply[ Plus, IntegerDigits[ Prime[ # ] ] ]+Apply[ Plus, IntegerDigits[ Prime[ #+1 ] ] ] ]==0& ] ] - Farideh Firoozbakht
PROG
(Magma) [ p: p in [ NthPrime(k): k in [1..172] ] | (p+q) mod (&+Intseq(p, 10) + &+Intseq(q, 10)) eq 0 where q is NextPrime(p) ]; /* Klaus Brockhaus, Mar 29 2007 */
CROSSREFS
KEYWORD
nonn,base
AUTHOR
J. M. Bergot, Mar 27 2007
EXTENSIONS
Edited and extended by Klaus Brockhaus and Farideh Firoozbakht, Mar 29 2007
STATUS
approved