OFFSET
1,10
LINKS
FORMULA
PROG
(Haskell)
a242411 1 = 0
a242411 n = i - j where
(i:j:_) = map a049084 $ ps ++ [p]
ps@(p:_) = reverse $ a027748_row n
-- Reinhard Zumkeller, May 15 2014
(Python)
from sympy import factorint, primefactors, primepi
def a061395(n): return 0 if n==1 else primepi(primefactors(n)[-1])
def a053585(n):
if n==1: return 1
p = primefactors(n)[-1]
return p**factorint(n)[p]
def a051119(n): return n/a053585(n)
def a(n): return 0 if n==1 or len(primefactors(n))==1 else a061395(n) - a061395(a051119(n)) # Indranil Ghosh, May 19 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 13 2014
STATUS
approved