OFFSET
0,2
COMMENTS
Sequence can be generalized: a(0)=1; a(n) = (Product_{i=1..n} prime(i)^r) - 1, where prime(i) is the i-th prime.
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..99 [Offset shifted by Georg Fischer, Jun 18 2021]
A. Adelberg, S. Hong and W. Ren, Bounds on divided universal Bernoulli numbers and universal Kummer congruences, Proc. Amer. Math. Soc., Volume 136, Number 1, 2008, Pages 61-71,
Alexei A. Panchishkin, Generalized Kummer congruences and p-adic families of motives, arXiv:math/9503218 [math.NT], 1995.
FORMULA
MAPLE
MATHEMATICA
Join[{1}, Rest[#-1&/@FoldList[Times, 1, Prime[Range[15]]^2]]] (* Harvey P. Dale, Oct 02 2011 *)
Join[{1}, Table[Product[Prime[i]^(2), {i, 1, n}] - 1, {n, 1, 15}]] (* G. C. Greubel, Oct 17 2016 *)
PROG
(PARI) a(n) = if(n==0, 1, prod(k=1, n, prime(k)^2) - 1); \\ Michel Marcus, Oct 17 2016
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Ctibor O. Zizka, Feb 19 2008
EXTENSIONS
Offset corrected by Georg Fischer, Jun 18 2021
STATUS
approved