OFFSET
1,2
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
EXAMPLE
n = 89 -> 89 + floor((8+9)/2) = 89 + 8 = 97 (prime).
n = 190 -> 190 + floor((1+9+0)/3) = 190 + 3 = 193 (prime).
MAPLE
a := proc (n) local nn: nn := convert(n, base, 10): if isprime(n+floor(add(nn[j], j = 1 .. nops(nn))/nops(nn))) = true then n else end if end proc: seq(a(n), n = 1 .. 350); # Emeric Deutsch, Mar 07 2009
PROG
(PARI) is(n)=isprime(sumdigits(n)\#digits(n)+n) \\ Charles R Greathouse IV, Dec 27 2013
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Kyle D. Balliet, Mar 04 2009
EXTENSIONS
Corrected and extended by Emeric Deutsch, Mar 07 2009
STATUS
approved