|
| |
|
|
A067904
|
|
Primes of the form floor((3/2)^k).
|
|
3
| |
|
|
2, 3, 5, 7, 11, 17, 4987, 7481, 180693856682317883, 4630985912862061063, 75677449184722757264165738713, 1910944005427272291238064043761449, 366425537175409658704814112327931286021
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
REFERENCES
| R. K. Guy, Unsolved Problems in Number Theory, E19.
|
|
|
LINKS
| Charles R Greathouse IV, Table of n, a(n) for n = 1..23
|
|
|
MATHEMATICA
| f[n_]:=Floor[(3/2)^n]; lst={}; Do[p=f[n]; If[PrimeQ[p], AppendTo[lst, p]], {n, 0, 4*5!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Jul 02 2009]
|
|
|
PROG
| (PARI) v=[]; for(k=2, 5700, if(ispseudoprime(t=floor((3/2)^k)), v=concat(v, t))); v \\ Charles R Greathouse IV, Feb 15 2011
|
|
|
CROSSREFS
| Cf. A043037, A070758, A070759.
Sequence in context: A068868 A038887 A178991 * A018146 A069749 A081889
Adjacent sequences: A067901 A067902 A067903 * A067905 A067906 A067907
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Benoit Cloitre (benoit7848c(AT)orange.fr), Mar 03 2002
|
|
|
EXTENSIONS
| Mathematica [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Jul 02 2009]
|
| |
|
|
