OFFSET
1,1
COMMENTS
Broughan & Qizhi show that this sequence has relative density 2*A in the primes, where A = A005596 is Artin's constant. Consequently, there exists a flat number between x and (1+e)x for every e > 0 and large enough x.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Kevin A. Broughan and Zhou Qizhi, Flat primes and thin primes, Bulletin of the Australian Mathematical Society, Vol. 82, No. 2 (2010), pp. 282-292, alternative link.
FORMULA
a(n) ~ k * n * log(n) with k = 1/(2*A) = 1.3370563...
MATHEMATICA
Select[Range[3, 360, 2], PrimeQ[#] && SquareFreeQ[(# - 1)/2^IntegerExponent[# - 1, 2]] &] (* Amiram Eldar, Aug 30 2020 *)
PROG
(PARI) is(n)=n%2&&isprime(n)&&issquarefree((n-1)>>valuation(n-1, 2)) \\ corrected by Amiram Eldar, Aug 30 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Charles R Greathouse IV, Jul 11 2011
EXTENSIONS
Data corrected by Amiram Eldar, Aug 30 2020
STATUS
approved