|
|
A068813
|
|
Primes with a 3 followed by 1's.
|
|
1
|
|
|
31, 311, 311111, 31111111111, 311111111111, 31111111111111, 31111111111111111111111111111111111, 311111111111111111111111111111111111111111111111, 31111111111111111111111111111111111111111111111111111
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
Digit 3 followed by rep-units of length 1,2,5,10,11,13,34,47,52,77,88,...
|
|
MATHEMATICA
|
Select[Table[FromDigits[PadRight[{3}, n, 1]], {n, 2, 100}], PrimeQ] (* Harvey P. Dale, Nov 18 2012 *)
|
|
PROG
|
(PARI) for(n=1, 200, if(isprime(3*10^n+(10^(n)-1)/9)==1, print1(3*10^n+(10^(n)-1)/9, ", ")))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|