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,1

Comments

Sequence related to atomic nuclei.

Links

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

Index entries for characteristic functions

Prog

(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

Crossrefs

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

Sequence in context: A030214 A369658 A025464 * A330306 A300477 A355202

Adjacent sequences: A162515 A162516 A162517 * A162519 A162520 A162521

Keyword

nonn

Author

Omar E. Pol, Jul 07 2009

Extensions

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

Status

approved