|
| |
|
|
A059661
|
|
Like A059459, but each term must be greater than the previous ones.
|
|
3
| |
|
|
2, 3, 7, 23, 31, 4127, 4159, 20543, 134238271, 134238527, 167792959, 1241534783, 3389018431, 72108495167, 72108503359, 72108765503, 2722258935367507707706996859526254457151
(list; graph; refs; listen; history; internal format)
|
|
|
|
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 * A072686 A002230 A106865
Adjacent sequences: A059658 A059659 A059660 * A059662 A059663 A059664
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Antti Karttunen Feb 03 2001
|
| |
|
|
