OFFSET
1,2
COMMENTS
For all n, a(n) is a term in row n of triangle A125118, and furthermore if n is prime then a(n) = A060072(n+1). - Mathew Englander, Dec 20 2020
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..388
MAPLE
A110737 := proc(n) local i, a ; if n = 1 then RETURN(1) ; else a := 2 ; while (1-a^n)/(1-a) mod n <> 0 do a := a+1 ; od ; RETURN( (1-a^n)/(1-a) ) ; fi ; end: for n from 1 to 25 do printf("%d, ", A110737(n)) : od : # R. J. Mathar, Mar 13 2007
MATHEMATICA
Block[{a = {1}, k, s}, Do[k = 2; While[Mod[Set[s, Total@ NestList[# k &, 1, i - 1]], i] != 0, k++]; AppendTo[a, s], {i, 2, 20}]; a] (* Michael De Vlieger, Dec 31 2020 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Amarnath Murthy, Aug 10 2005
EXTENSIONS
More terms from R. J. Mathar, Mar 13 2007
STATUS
approved