A070762 - OEIS

A070762

n for which floor((4/3)^n) is prime.

3, 4, 6, 7, 9, 10, 11, 12, 38, 42, 59, 96, 154, 171, 211, 313, 465, 563, 1040, 1176, 1213, 1431, 1519, 1987, 2527, 3033, 4039, 4209, 4358, 5109, 5251, 6642, 19200, 25275, 42589, 43025, 49294, 58585, 66290, 77458, 80409, 86533, 94192, 110452, 115166, 124470

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

REFERENCES

R. K. Guy, Unsolved Problems in Number Theory, E19.

LINKS

Giovanni Resta, Table of n, a(n) for n = 1..53 (terms < 400000)

Eric Weisstein's World of Mathematics, Power Floors

MATHEMATICA

Do[ If[ PrimeQ[ Floor[(4/3)^n]], Print[n]], {n, 1, 17500}]

Select[Range[7000], PrimeQ[Floor[(4/3)^#]]&] (* The program generates the first 32 terms of the sequence. *) (* Harvey P. Dale, Oct 02 2024 *)

CROSSREFS