A077022 Values of k such that sum of first k primes squared is divisible by k-th prime.
1, 6, 17, 11156, 16548
Offset: 1
Examples
6 is a term because A024450(6)/prime(6) = 29; 17 is a term because A024450(17)/prime(17) = 284; 11156 is a term because A024450(11156)/prime(11156) = 410066261; 16548 is a term because A024450(16548)/prime(16548) = 941945317.
Programs
-
Mathematica
Module[{nn=17000,prs},prs=Accumulate[Prime[Range[nn]]^2];Select[Range[ nn],Divisible[prs[[#]],Prime[#]]&]] (* Harvey P. Dale, Nov 23 2013 *)
Comments