|
|
A126199
|
|
a(n) = prime(n)*prime(n+1) + prime(n) + prime(n+1).
|
|
4
|
|
|
11, 23, 47, 95, 167, 251, 359, 479, 719, 959, 1215, 1595, 1847, 2111, 2591, 3239, 3719, 4215, 4895, 5327, 5919, 6719, 7559, 8819, 9995, 10607, 11231, 11879, 12539, 14591, 16895, 18215, 19319, 20999, 22799, 24015, 25911, 27551, 29231, 31319, 32759
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
f[n_] := Block[{p = Prime[n], q = Prime[n + 1]}, p*q + p + q]; Array[f, 42] (* Robert G. Wilson v, Mar 09 2007 *)
Times@@#+Total[#]&/@Partition[Prime[Range[50]], 2, 1] (* Harvey P. Dale, Nov 01 2017 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|