OFFSET
1,1
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..956 (this replaces an older b-file by Robert G. Wilson v)
Chris Caldwell, Repunit
MAPLE
N:= 20: # to get all terms of up to N digits
A:= select(isprime, [seq(seq((10^n-1)/9 - 10^j, j=n-2..1, -1), n=3..N)]); # Robert Israel, Jun 23 2015
MATHEMATICA
f[n_] := Block[{lst = {}, r = (10^(n - 1) - 1)/9}, AppendTo[ lst, Select[ FromDigits[ Permutations[ Append[ IntegerDigits@ r, 0]]], PrimeQ@# && # > 100 &]]; Union@ Flatten@ lst]; Array[f, 18] // Flatten (* Robert G. Wilson v, Jun 22 2015 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Nov 19 2001
EXTENSIONS
Name changed by Arkadiusz Wesolowski, Sep 23 2011
STATUS
approved