|
|
A372944
|
|
Numbers k that divide the k-th tangent (or "zag") number.
|
|
0
|
|
|
1, 2, 4, 8, 16, 32, 64, 68, 128, 256, 512, 592, 1024, 1156, 2048, 2056, 4096, 4112, 8192, 8224, 8576, 10928, 16384, 16448, 19652, 20512, 28936, 32768, 37888, 41024, 43882, 64804, 65536, 82048
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Numbers k such that k | A000182(k).
All the powers of 2 are terms.
|
|
LINKS
|
|
|
EXAMPLE
|
2 is a term since A000182(2) = 2 is divisible by 2.
4 is a term since A000182(4) = 272 = 4 * 68 is divisible by 4.
|
|
MATHEMATICA
|
Select[Range[1000], Divisible[((-4)^# - (-16)^#) * BernoulliB[2*#]/(2*#), #] &]
|
|
PROG
|
(PARI) is(n) = (((-4)^n - (-16)^n) * bernfrac(2*n) / (2*n)) % n == 0;
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|