OFFSET
0,5
LINKS
Lucas A. Brown, Python program.
EXAMPLE
The fourth differences of A246655 begin: 1, -3, 3, 0, -2, 2, ... so a(4) = 4.
MATHEMATICA
nn=10000;
u=Table[Differences[Select[Range[nn], PrimePowerQ], k], {k, 2, 16}];
mnrm[s_]:=If[Min@@s==1, mnrm[DeleteCases[s-1, 0]]+1, 0];
m=Table[Position[u[[k]], 0][[1, 1]], {k, mnrm[Union[First/@Position[u, 0]]]}]
CROSSREFS
These are the positions of first zeros in each row of A377051.
KEYWORD
nonn,new
AUTHOR
Gus Wiseman, Oct 22 2024
EXTENSIONS
a(12)-a(27) from Pontus von Brömssen, Oct 22 2024
a(28)-a(30) from Chai Wah Wu, Oct 23 2024
a(31)-a(35) from Lucas A. Brown, Nov 03 2024
STATUS
approved