OFFSET
1,2
COMMENTS
Sequences A060646, A076367, A076368 were used in proving a property of 30. See A048597, A060646 and corresponding References. It is provable [Bonse] that a(n)>=3 if n>3.
For n>1, a(n) is the sum of the digits of prime(n) in the base prime(n-1). - R. J. Cano, Dec 31 2016; corrected by Michel Marcus, Jan 01 2017
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..5000
H. Bonse, Über eine bekannte Eigenshaft der Zahl 30 und ihre Verallgemeinerung, Archiv d. Math. u. Physik (3) vol. 12 (1907) 292-295.
MATHEMATICA
c[x_, j_] := x+1-(j+Prime[j])c[x, 0]=x; a=1000; t=Table[0, {a}]; t1=Table[0, {a}]; Table[fl=1; (*Print["% ", u, " #"]; *)Do[s=c[u, n]; If[Equal[fl, 1]&&Equal[Sign[s], -1], Print[n]; t[[u]]=n; t1[[u]]=Prime[n]; fl=0], {n, 1, u}], {u, 1, a}]//t (*=A060646*)//t1 (*=A076367*) Table[Count[t, j], {j, 1, PrimePi[a]}]
(* Second program *)
Table[If[n == 1, 1, (Prime@ n - Prime[n - 1]) + 1], {n, 97}] (* Michael De Vlieger, Dec 31 2016 *)
Join[{1}, Differences[Prime[Range[100]]]+1] (* Harvey P. Dale, Mar 13 2019 *)
PROG
(Magma) [1] cat [NthPrime(n)-NthPrime(n-1)+1: n in [1..80]]; // Vincenzo Librandi, Jan 01 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Oct 14 2002
EXTENSIONS
Simpler description from Vladeta Jovovic, Mar 29 2003
STATUS
approved