A162518 Characteristic function of magic numbers A018226: 1 if n is a magic number else 0.

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

Offset: 1

Author

Omar E. Pol, Jul 07 2009

Keywords

• nonn

Comments

Sequence related to atomic nuclei.

Links

• Antti Karttunen, Table of n, a(n) for n = 1..10000
• Index entries for characteristic functions

Crossrefs

Cf. A018226, A130517, A130556, A130598, A130602, A162519, A162521, A162522, A162523, A162524, A162525.

Programs

PARI

A162518(n) = if(n<1, 0, polcoeff( x^126+x^82+x^50+x^28+x^20+x^8+x^2, n)); \\ Antti Karttunen, Dec 24 2018, after code in A089011

Extensions

Data section extended up to a(126) by Antti Karttunen, Dec 24 2018