[go: up one dir, main page]

login
Revision History for A130710 (Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing all changes.
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).
(history; published version)
#2 by Russ Cox at Fri Mar 30 17:34:21 EDT 2012
AUTHOR

_Roger L. Bagula (rlbagulatftn(AT)yahoo.com), _, Jul 01 2007

Discussion
Fri Mar 30
17:34
OEIS Server: https://oeis.org/edit/global/158
#1 by N. J. A. Sloane at Sat Nov 10 03:00:00 EST 2007
NAME

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).

DATA

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

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}]]

KEYWORD

nonn,uned

AUTHOR

Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jul 01 2007

STATUS

approved