A330563 Primes in A330562.

101, 103, 109, 401, 601, 701, 1009, 1021, 1033, 1051, 1063, 1201, 1303, 1801, 2011, 2017, 2081, 2801, 3001, 3061, 3301, 4001, 4021, 4201, 4801, 5011, 5021, 5051, 5081, 5101, 5501, 5801, 6301

Offset: 1

Author

James R. Buddenhagen, Dec 31 2019

Keywords

• nonn
• base

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A330562.

Programs

Maple

filter:= proc(k) local L;
  L:= convert(convert(k,base,10),set);
  andmap(d -> member(k mod d, L), L minus {0}) and isprime(k)
end proc:
select(filter, [seq(i,i=101..10000,2)]); # Robert Israel, Dec 23 2024