The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A069710 Primes with arithmetic mean of digits = 1 (sum of digits = number of digits). 14
 11, 1021, 1201, 2011, 3001, 10103, 10211, 10301, 11003, 12011, 12101, 13001, 20021, 20201, 21011, 21101, 30011, 1000033, 1000213, 1000231, 1000303, 1001023, 1001041, 1001311, 1001401, 1002121, 1003003, 1003111, 1003201, 1010131 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS The sum of the digits of a prime > 3 cannot be a multiple of 3, hence no prime with 3*k digits can be here. - David Radcliffe, May 05 2015 Subsequence of primes of A061384. - Michel Marcus, May 05 2015 LINKS David Radcliffe, Table of n, a(n) for n = 1..13376 MAPLE F:= proc(d, s) option remember;   local t, r;   if d = 1 then     if s >= 1 and s <= 9 then {s}     else {}     fi   else     `union`(seq(map(t -> 10*t+r, procname(d-1, s-r)), r=0..min(s, 9)))   fi end proc: `union`(seq(select(isprime, F(i, i)), i = remove(d -> d mod 3 = 0, [\$1..8])); # if using Maple 11 or earlier, uncomment the next line # sort(convert(%, list)); # Robert Israel, May 05 2015 MATHEMATICA Do[p = Prime[n]; If[ Apply[ Plus, IntegerDigits[p]] == Floor[ Log[10, p] + 1], Print[p]], {n, 1, 10^5}] CROSSREFS Cf. A069709, A069711, A069712. Sequence in context: A065050 A099440 A073903 * A046187 A234634 A004811 Adjacent sequences:  A069707 A069708 A069709 * A069711 A069712 A069713 KEYWORD nonn,base AUTHOR Amarnath Murthy, Apr 08 2002 EXTENSIONS Edited and extended by Robert G. Wilson v, Apr 12 2002 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified August 10 04:27 EDT 2022. Contains 356029 sequences. (Running on oeis4.)