OFFSET
1
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..65537
FORMULA
a(n) = min(1, A276077(n)).
a(n) >= A342023(n).
Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = 1 - Product_{i>=1} 1-prime(i)^(-1-i) = 0.2789766... . - Amiram Eldar, Jul 24 2022
MATHEMATICA
Table[Boole[Count[Prime[#]^(# + 1) & /@ Range[PrimePi@ Floor[Sqrt[n]]], _?(Mod[n, #] == 0 &)] > 0], {n, 120}] (* Michael De Vlieger, Mar 11 2021 *)
PROG
(PARI) A342024(n) = if(1==n, 0, my(f = factor(n)); for(k=1, #f~, if(f[k, 2]>primepi(f[k, 1]), return(1))); (0));
(Python)
from sympy import factorint, primepi
def A342024(n):
f = factorint(n)
for p in f:
if primepi(p) < f[p]:
return 1
return 0 # Chai Wah Wu, Mar 09 2021
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 09 2021
STATUS
approved