OFFSET
1,5
COMMENTS
An autosequence is a sequence whose inverse binomial transform is the sequence signed. In integers, the oldest example is Fibonacci A000045. In fractions, A164555/A027642 is the son of 1/n via the Akiyama-Tanigawa algorithm; grandson is (A174110/A174111) = 1/2, 2/3, 1/2, 2/15, ...; see A164020. See A174341/A174342. All are from the same family.
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..625
OEIS Wiki, Autosequence.
EXAMPLE
Fractions are 0, 0, 1/6, 1/4, 7/30, 1/6, 5/42, 1/8, 13/90, 1/10, 1/66, 1/12, 901/2730, ...
MATHEMATICA
a[n_] := If[n <= 2, 0, Numerator[1/n - BernoulliB[n-1]]];
Table[a[n], {n, 1, 34}] (* Jean-François Alcover, Jun 07 2017 *)
PROG
(Magma)
A181722:= func< n | n le 2 select 0 else Numerator(1/n - Bernoulli(n-1)) >;
[A181722(n): n in [1..40]]; // G. C. Greubel, Mar 25 2024
(SageMath)
def A181722(n): return 0 if n<3 else numerator(1/n - bernoulli(n-1))
[A181722(n) for n in range(1, 41)] # G. C. Greubel, Mar 25 2024
CROSSREFS
KEYWORD
sign,frac
AUTHOR
Paul Curtz, Nov 17 2010
STATUS
approved