login
A162518
Characteristic function of magic numbers A018226: 1 if n is a magic number else 0.
3
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.
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
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