A108159 Numbers n such that (initial n digits of decimal expansion of 1/243)-1 is prime.

3, 160, 812

Offset

1,1

Links

Table of n, a(n) for n=1..3.

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

Cf. A021247.

Sequence in context: A317820 A318427 A318095 * A201429 A067322 A302378

Adjacent sequences: A108156 A108157 A108158 * A108160 A108161 A108162

Keyword

more,nonn,base,bref,dumb,changed

Author

Jason Earls, Jun 07 2005

Status

approved