OFFSET
1,1
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 1..10000
MAPLE
A186773 := proc(n) option remember: local d, k: if(n=1)then return 3: fi: for k from procname(n-1)+2 by 2 do d:=convert(k, base, 10): if(isprime(add(d[j], j=1..nops(d))))then return k: fi: od: end: seq(A186773(n), n=1..56); # Nathaniel Johnston, May 27 2011
MATHEMATICA
Select[Range[3, 311, 2], PrimeQ[Total[IntegerDigits[#]]]&] (* Harvey P. Dale, Oct 20 2011 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Giovanni Teofilatto, Feb 26 2011
EXTENSIONS
Corrected by Nathaniel Johnston, May 27 2011
STATUS
approved