login
Indices of records in A246066.
5

%I #15 May 24 2019 06:48:23

%S 0,2,6,14,20,24,30,42,62,78,110,120,126,156,240,254,272,336,342,510,

%T 620,726,812,930,1022,1320,1332,1640,1806,2046,2184,2394,2756,3120,

%U 3422,3660,4094,4422,4896,4970,5256,6162,6558,6840,7832,8190,9312,10100,10506

%N Indices of records in A246066.

%C Subsequence of numbers of form p^n-p for prime p. - _Jens Kruse Andersen_, Aug 26 2014

%H Jens Kruse Andersen, <a href="/A246068/b246068.txt">Table of n, a(n) for n = 1..10000</a>

%o (PARI) k=2; for(n=0, 10506, k=k-1; r=k+1; until(vecmax(vector(#f[, 1], i, f[i, 1]^f[i, 2]))>vecmax(f[, 1])+n, k++; f=factor(k)); if(k>r, print1(n, ", ")));

%Y Cf. A246066, A246067.

%K nonn

%O 1,2

%A _Arkadiusz Wesolowski_, Aug 23 2014