|
|
|
|
#22 by N. J. A. Sloane at Fri Dec 15 17:35:58 EST 2017
|
| EXTENSIONS
|
More terms from _Jason Earls (zevi_35711(AT)yahoo.com), _, Aug 26 2002
|
|
|
Discussion
|
Fri Dec 15
| 17:35
| OEIS Server: https://oeis.org/edit/global/2722
|
|
|
|
#21 by Michel Marcus at Sun Mar 06 04:06:48 EST 2016
|
|
|
|
#20 by Joerg Arndt at Sun Mar 06 03:54:28 EST 2016
|
|
|
|
#19 by Ivan Neretin at Sun Mar 06 03:41:39 EST 2016
|
|
|
Discussion
|
Sun Mar 06
| 03:54
| Joerg Arndt: Thanks!
|
|
|
|
#18 by Ivan Neretin at Sun Mar 06 03:41:32 EST 2016
|
|
|
|
#17 by Joerg Arndt at Sun Mar 06 03:18:44 EST 2016
|
| FORMULA
|
a[1]=1; a[n_]:=a[n]=(For[c=Sort[Table[a[k], {k, n-1}]]; d=Append[c, Last[c]+1]; m=First[Complement[Range[Last[d]], c]], MemberQ[c, m]||!PrimeQ[m*a[n-1]+1], m++ ];m) (Farideh Firoozbakht, Apr 14 2004)
|
| STATUS
|
proposed
editing
|
|
|
Discussion
|
Sun Mar 06
| 03:19
| Joerg Arndt: Iva: please document change of offset in extensions line.
|
|
|
|
#16 by Michel Marcus at Sun Mar 06 01:09:42 EST 2016
|
|
|
|
#15 by Michel Marcus at Sun Mar 06 01:08:47 EST 2016
|
| MATHEMATICA
|
a[1]=1; a[n_]:=a[n]=(For[c=Sort[Table[a[k], {k, n-1}]]; d=Append[c, Last[c]+1]; m=First[Complement[Range[Last[d]], c]], MemberQ[c, m]||!PrimeQ[m*a[n-1]+1], m++ ]; m); Table[a[k], {k, 70}] (_}] (* _Farideh Firoozbakht_, Apr 14 2004) *)
|
| STATUS
|
proposed
editing
|
|
|
Discussion
|
Sun Mar 06
| 01:09
| Michel Marcus: The formula looks like it is Mathematica code, which is already there. Ok to remove ?
|
|
|
|
#14 by Ivan Neretin at Sat Mar 05 18:14:39 EST 2016
|
|
|
|
#13 by Ivan Neretin at Sat Mar 05 18:13:51 EST 2016
|
| OFFSET
|
01,2
|
| LINKS
|
Ivan Neretin, <a href="/A073666/b073666.txt">Table of n, a(n) for n = 1..1000</a>
|
| STATUS
|
approved
editing
|
|
|
Discussion
|
Sat Mar 05
| 18:14
| Ivan Neretin: Fixed the offset. Otherwise it was different from A081943 for no reason, and also contradicted A073667 (which is where a(n)=n: 1,2,3...).
|
|
|
|