|
|
A077067
|
|
Squarefree numbers of form prime + 1.
|
|
5
|
|
|
3, 6, 14, 30, 38, 42, 62, 74, 102, 110, 114, 138, 158, 174, 182, 194, 230, 258, 278, 282, 314, 318, 354, 374, 390, 398, 402, 410, 422, 434, 458, 462, 510, 542, 570, 602, 614, 618, 642, 654, 662, 674, 678, 710, 734, 758, 762, 770, 798, 822, 830, 854, 858, 878
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
Select[Prime[Range[200]]+1, SquareFreeQ] (* Harvey P. Dale, Aug 20 2017 *)
|
|
PROG
|
(PARI) isok(n) = issquarefree(n) && isprime(n-1); \\ Michel Marcus, Mar 22 2016
(PARI) lista(nn) = forprime(p=2, nn, if (issquarefree(p+1), print1(p+1, ", "))); \\ Michel Marcus, Mar 22 2016
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|