|
Search: id:A130710
|
|
|
| A130710 |
|
A designed sequence of primes that seems to be chaotic based on the sum of the sequence with a prime and one: a(n+1)->Abs(a(n)+Prime[n]+1). |
|
+0
1
|
|
| 2, 7, 13, 11, 7, 3, 13, 5, 17, 11, 19, 17, 23, 19, 31, 41, 37, 43, 53, 47, 71, 59, 61, 97, 103, 113, 79, 137, 101, 139, 151, 157, 173, 137, 199, 149, 211, 223, 173, 227, 181, 197, 263, 199, 211, 283
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
FORMULA
|
a(n) =If Prime Abs[a(n-1)+Prime[n-1]+1]
|
|
MATHEMATICA
|
a[0] = 2; a[1] = 7; a[2] = 13; a[n_] := a[n] = Abs[a[n - 1] - Prime[n - 1] + 1] a0 = Flatten[Table[If[PrimeQ[a[n]], a[n], {}], {n, 0, 100}]]
|
|
CROSSREFS
|
Adjacent sequences: A130707 A130708 A130709 this_sequence A130711 A130712 A130713
Sequence in context: A084068 A046243 A103886 this_sequence A018322 A063222 A030592
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jul 01 2007
|
|
|
Search completed in 0.002 seconds
|
