|
|
A108159
|
|
Numbers n such that (initial n digits of decimal expansion of 1/243)-1 is prime.
|
|
0
|
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
Eric Weisstein's World of Mathematics, 243.
|
|
MATHEMATICA
|
Do[ If[ PrimeQ[ Floor[10^n/243 - 1]], Print[n]], {n, 8000}] (* Robert G. Wilson v, Jun 10 2005 *)
|
|
PROG
|
(PARI) for(n=1, 999, if(isprime(floor(1/243*10^n)-1), print1(n", ")))
|
|
CROSSREFS
|
|
|
KEYWORD
|
more,nonn,base,bref,dumb
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|