login
A284261
a(n) = A284258(n) - A284258(A003961(n)).
3
0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1
OFFSET
1,429
COMMENTS
The first 2 occurs at n = 429 = 3*11*13. A003961(429) = 1105 = 5*13*17.
The first 3 occurs at n = 7293 = 3*11*13*17. A003961(7293) = 20995 = 5*13*17*19.
LINKS
FORMULA
a(n) = A284258(n) - A284258(A003961(n)).
MATHEMATICA
Table[If[n == 1, 0, Subtract @@ Map[Count[#, d_ /; d > First[#]^2] &@ FactorInteger[#][[All, 1]] &, {n, Times @@ Map[#1^#2 & @@ # &, FactorInteger[n] /. {p_, e_} /; e > 0 :> {Prime[PrimePi@ p + 1], e}] - Boole[n == 1]}]], {n, 120}] (* Michael De Vlieger, Mar 24 2017 *)
PROG
(Scheme) (define (A284261 n) (- (A284258 n) (A284258 (A003961 n))))
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 24 2017
EXTENSIONS
Secondary offset corrected by Antti Karttunen, Dec 15 2017
STATUS
approved