OFFSET
1,1
FORMULA
a(n) = A003627(n)^2 - 1. - Altug Alkan, Mar 28 2018
MAPLE
A301812List := proc(len) local p, n, L; L := 3; p := 5;
for n from 2 to len do if isprime(p) then L := L, (p^2 - 1) fi;
p := p + 6; od: L end:
A301812List(65);
MATHEMATICA
Flatten[Table[n^2 - 1, {n, {2, Select[Range[5, 385, 6], PrimeQ]}}]]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Peter Luschny, Mar 27 2018
STATUS
approved