|
|
A004684
|
|
Primes written in base 11. (Next term contains a nondecimal character.)
|
|
5
|
|
|
2, 3, 5, 7, 10, 12, 16, 18, 21, 27, 29, 34, 38
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
FromDigits /@ TakeWhile[Array[IntegerDigits[Prime@ #, 11] &, 15], NoneTrue[#, # > 9 &] &] (* Michael De Vlieger, Nov 25 2018 *)
|
|
PROG
|
(PARI) a(n) = my(d=digits(prime(n), 11)); my(s="", x); for(i=1, #d, if(d[i]<10, x = d[i], x = "A"); s = concat(s, x)); eval(s);
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|