|
Search: id:A059661
|
|
|
| A059661 |
|
Like A059459, but each term must be greater than the previous ones. |
|
+0
4
|
|
| 2, 3, 7, 23, 31, 4127, 4159, 20543, 134238271, 134238527, 167792959, 1241534783, 3389018431, 72108495167, 72108503359, 72108765503, 2722258935367507707706996859526254457151
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
N. J. A. Sloane, Maple implementations of XORnos and DIFF
|
|
MAPLE
|
flip_primes_asc_search := proc(a, upto_bit, upto_length) local i, n, t; if(nops(a) >= upto_length) then RETURN(a); fi; t := a[nops(a)]; for i from 0 to upto_bit do n := XORnos(t, (2^i)); if(isprime(n) and (n > t)) then print([op(a), n]); RETURN(flip_primes_asc_search([op(a), n], upto_bit, upto_length)); fi; od; RETURN([op(a), `and no more`]); end;
E.g. call as: flip_primes_asc_search([2], 512, 21);
|
|
CROSSREFS
|
Sequence in context: A127581 A118883 A061712 this_sequence A072686 A002230 A106865
Adjacent sequences: A059658 A059659 A059660 this_sequence A059662 A059663 A059664
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Antti Karttunen Feb 03 2001
|
|
|
Search completed in 0.002 seconds
|
