|
|
A056221
|
|
Image of primes (A000040) under "little Hankel" transform that sends [c_0, c_1, ...] to [d_0, d_1, ...] where d_n = c_n^2 - c_{n+1}*c_{n-1}.
|
|
10
|
|
|
-1, 4, -6, 30, -18, 42, -30, -22, 128, -112, 98, 90, -78, -70, 36, 248, -232, 158, 150, -280, 182, -142, -130, 420, 210, -198, 222, -210, -1074, 1326, -238, 560, -1092, 1212, -592, 36, 350, -310, 36, 728, -1428, 1548, -378, 402, -1966, 144, 1832, 462, -450, -442
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
a(n) = determinant of matrix
| prime(n+1) prime(n)|
|
|
MAPLE
|
ithprime(n+1)^2-ithprime(n)*ithprime(n+2) ;
end proc:
|
|
MATHEMATICA
|
a[n_]:=Prime[n+1]^2-Prime[n]Prime[n+2]; Array[a, 50] (* Stefano Spezia, Jul 15 2024 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|