Search: a194954 -id:a194954
|
| |
|
|
A194985
|
|
Inverse permutation of A194984; every positive integer occurs exactly once.
|
|
+10
4
|
|
|
|
1, 3, 2, 5, 6, 4, 8, 10, 9, 7, 12, 14, 15, 13, 11, 17, 19, 21, 20, 18, 16, 23, 25, 27, 28, 26, 24, 22, 30, 32, 34, 36, 35, 33, 31, 29, 38, 40, 42, 44, 45, 43, 41, 39, 37, 47, 49, 51, 53, 55, 54, 52, 50, 48, 46, 57, 59, 61, 63, 66, 65, 64, 62, 60, 58, 56, 68, 70, 72
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
|
|
|
MATHEMATICA
|
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
| |
|
|
A194955
|
|
Slowest increasing sequence of primes such that a(1)=2, a(n)-a(n-1) is a multiple of A000120(a(n-1)).
|
|
+10
2
|
|
|
|
2, 3, 5, 7, 13, 19, 31, 41, 47, 67, 73, 79, 89, 97, 103, 113, 137, 149, 157, 167, 197, 229, 239, 281, 293, 313, 353, 373, 379, 421, 431, 487, 557, 577, 601, 631, 659, 709, 719, 733, 761, 859, 887, 911, 953, 967, 1009, 1051, 1061, 1069, 1109, 1129, 1229, 1259, 1301
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
|
|
|
MAPLE
|
wt(n) ;
end proc:
option remember;
local p;
if n = 1 then
2;
else
p := nextprime(procname(n-1)) ;
while (p-procname(n-1)) mod A000120(procname(n-1)) <> 0 do
p := nextprime(p);
end do;
p ;
end if;
end proc:
|
|
|
MATHEMATICA
|
a[1] = 2; a[n_] := a[n] = Module[{k = a[n - 1], s = DigitCount[a[n - 1], 2, 1]}, k += s; While[! PrimeQ[k], k += s]; k]; Array[a, 50] (* Amiram Eldar, Jul 25 2023 *)
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
nonn,base
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
| |
|
|
A195115
|
|
Inverse permutation of A195114; every positive integer occurs exactly once.
|
|
+10
2
|
|
|
|
1, 3, 2, 5, 6, 4, 8, 9, 10, 7, 15, 12, 13, 14, 11, 20, 21, 17, 18, 19, 16, 26, 27, 28, 23, 24, 25, 22, 33, 34, 35, 36, 30, 31, 32, 29, 45, 41, 42, 43, 44, 38, 39, 40, 37, 54, 55, 50, 51, 52, 53, 47, 48, 49, 46, 64, 65, 66, 60, 61, 62, 63, 57, 58, 59, 56, 75, 76, 77
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
|
|
|
MATHEMATICA
|
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
Search completed in 0.008 seconds
|
