A342460 a(n) = 1 if n > 1 and is divisible by the sum of its prime factors (with repetition), otherwise 0.

0, 1, 1, 1, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1

Offset

1

Comments

Characteristic function of A036844. a(n) - A010051(n) gives the characteristic function for A046346.

Links

Antti Karttunen, Table of n, a(n) for n = 1..65537

Index entries for characteristic functions

Formula

a(1) = 0; and for n > 1, a(n) = [0=A238525(n)], where [ ] is the Iverson bracket.

Mathematica

Array[Boole[Mod[#, Total@ Flatten[ConstantArray[#1, #2] & @@@ FactorInteger[#]]] == 0] - Boole[# == 1] &, 105] (* Michael De Vlieger, Mar 19 2021 *)

Prog

(PARI) A342460(n) = if(n<2, 0, my(f=factor(n)); !(n%((f[, 1]~*f[, 2])))); \\ After code in A001414 and A036844.

Crossrefs

Cf. A001414, A010051, A036844, A046346, A238525.

Sequence in context: A080908 A131720 A131719 * A100656 A285274 A189081

Adjacent sequences: A342457 A342458 A342459 * A342461 A342462 A342463

Keyword

nonn

Author

Antti Karttunen, Mar 18 2021

Status

approved