|
| |
| |
|
|
|
1, 3, 4, 8, 11, 21, 29, 44, 53, 58, 61, 84, 105, 121, 149, 153, 179, 183, 213, 295, 308, 374, 461, 502, 535, 552, 609, 637, 659, 727, 730, 756, 850, 859, 865, 875, 885, 914, 1005, 1055, 1105, 1239, 1261, 1306, 1321, 1407, 1443, 1616, 1654, 1769, 1783, 1795, 1836
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
Table of n, a(n) for n=1..53.
|
|
|
MAPLE
|
A008578 := proc(n) if n =1 then 1; else ithprime(n-1) ; end if; end proc:
A075526 := proc(n) A008578(n+2)-A008578(n+1) ; end proc:
A054546 := proc(n) if n <= 2 then op(n, [1, 3]) ; else A002808(n-1)-A002808(n-2) ; end if; end proc:
for n from 1 to 2000 do if A075526(n-1) = A054546(n) then printf("%d, ", n) ; end if; end do: # R. J. Mathar, Apr 24 2010
|
|
|
CROSSREFS
|
Cf. A054546, A075526, A173390, A173400.
Sequence in context: A097497 A006167 A137504 * A109794 A034417 A126873
Adjacent sequences: A173398 A173399 A173400 * A173402 A173403 A173404
|
|
|
KEYWORD
|
nonn,less
|
|
|
AUTHOR
|
Juri-Stepan Gerasimov, Feb 17 2010
|
|
|
EXTENSIONS
|
Formula index corrected, a(14) corrected and sequence extended beyond a(14) - R. J. Mathar, Apr 25 2010
|
|
|
STATUS
|
approved
|
| |
|
|
