OFFSET
1,1
COMMENTS
Primes in A279771.
All terms == 1 (mod 18).
Includes (8*10^k+3)/11 for k = 2, 6, 60, 320, 600. Any others?
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(3) = 73 is a term because 73 is prime and 11*73 = 803 with 8+0+3 = 11.
MAPLE
filter:= proc(p) convert(convert(11*p, base, 10), `+`) = 11 and isprime(p):
select(filter, [seq(i, i=1..10^6, 18)]);
MATHEMATICA
Select[Prime[Range[40000]], Plus @@ IntegerDigits[11*#] == 11 &] (* Amiram Eldar, Oct 21 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
J. M. Bergot and Robert Israel, Oct 21 2022
STATUS
approved